将图表从一张图复制到另一张

我有两个表格，并希望将图表从Sheet1复制到Sheet2。

我正在使用下面的代码，代码是从Sheet1中删除图表并将其粘贴到sheet2。 相反，我只想拥有Chart的副本。

此外，我希望我的图表在特定的范围内。 我如何编辑它们？

Anylead会有所帮助

Sub overview1() Dim chartobj As Object For Each chartobj In Sheets("CAT").ChartObjects chartobj.chart.Location xlLocationAsObject, "Overview_1" Next chartobj For Each chartobj In Sheets("Dev").ChartObjects chartobj.chart.Location xlLocationAsObject, "Overview_1" Next chartobj End sub 

Answer 1

您应该尝试使用复制/粘贴技术，如下所示。

 Sub overview1() Dim OutSht As Worksheet Dim Chart As ChartObject Dim PlaceInRange As Range Set OutSht = ActiveWorkbook.Sheets("Overview_1") '<~~ Output sheet Set PlaceInRange = OutSht.Range("B2:J21") '<~~ Output location 'Loop charts For Each Chart In Sheets("CAT").ChartObjects 'Copy/paste charts Chart.Copy OutSht.Paste PlaceInRange Next Chart End Sub 

这只是一个简单的例子，应该让你继续前进。 显然这个例子在输出表中粘贴了完全相同的位置的所有图表，这可能不是你正在寻找的。