VBA代码将2张图表合并为一个
我目前有一个macros将在两个不同的图表中绘制两个单独的图表。 但是，为了便于比较，我需要将它们放在同一张图表上，并且要直接放在另一张图表的下面。
我已经尝试录制一个macros，将graphics作为一个对象移动到我创build的新图表中，但出现错误。
以下是录制的macros代码：
Sheets("Graph 1").Select ActiveChart.Location Where:=xlLocationAsObject, Name:= _ "Combined Graphs" Sheets("Graph 2").Select ActiveChart.Location Where:=xlLocationAsObject, Name:= _ "Combined Graphs" ActiveChart.ChartArea.Select ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select 我也尝试从一开始就在同一张纸上绘制它们，而不是在将它们分开绘制之后将两张图合并在一起，但是我不知道如何将这个实现到我的代码中，
Dim chtChart As Chart Set chtChart = Chart.Add With chtChart .Name = "Graph 1" .ChartType = xlLine .SetSourceData Source:=DateRange, PlotBy:=xlColumns
任何帮助将非常感激！
尝试将两个graphics作为单独的对象复制到单独的工作表。 将它们组合（组合）成单个graphics将组合graphics移动到所需的图纸上