VBA将图表放入不同的表格中

我有两个工作表。 一个工作表与源数据和另一个工作表（“相关图”）是我想要的图表。 以下是我的代码。 但是，它仍然在源数据表中绘制图表，而不是在设置范围的位置。

Worksheets.Add.Name = "Correlation Charts" Set myChart1 = Sheets("Correlation Charts").Range("A3:H16") Worksheets("Summary").Activate Application.Union(xValue1, yValue1).Select With ActiveSheet.Shapes .AddChart2(240, xlXYScatter, myChart1.Left, myChart1.Top, myChart1.Width, _ myChart1.Height).Select End With With ActiveChart .ChartTitle.Text = Range("Correl1_yValue") & " " & "vs." & " " & Range("Correl1_xValue") End With 

Answer 1

创build图表后，您还可以使用：

 ActiveChart.Location Where:=xlLocationAsNewSheet 

得到一个只包含你的图表的新工作表…或者如果你想在你已经创build的工作表：

 ActiveChart.Location Where:=xlLocationAsObject, Name:="Correlation Charts" 

虽然您也可以在任何地方创build图表，然后更改源数据…

Answer 2

尝试添加Worksheets("Correlation Charts").Activate在With ActiveSheet.Shapes部分之前Worksheets("Correlation Charts").Activate 。