Question

我目前有一个宏，它将在两个不同的图表中绘制两个单独的图表。但是，为了便于比较，我需要将它们放在同一个图表上，一个直接放在另一个图表上。

我已经尝试录制宏来将图形作为对象移动到我创建的新图表工作表中，但错误出现了。

以下是录制的宏代码：

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

我也尝试从一开始就在同一张纸上绘制它们，而不是在分别绘制它们之后尝试将两个图组合起来，但我不知道如何将这个实现到我已经使用的代码中 - < / p>

Dim chtChart As Chart
Set chtChart = Chart.Add
With chtChart
.Name = "Graph 1"
.ChartType = xlLine
.SetSourceData Source:=DateRange, PlotBy:=xlColumns

非常感谢任何帮助！

Answer 1

尝试将两个图形作为单独的对象复制到单独的工作表中。将它们组合（组合）成单个图形将组合图移动到所需的工作表

VBA代码将2张图表合并为一张

1 个答案: