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

Question

我有两张图纸，并且希望将图表从图纸1复制到图纸2。

我正在使用下面的代码，代码是从Sheet1中删除Chart并将它们粘贴到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 

这只是一个简单的例子，应该让你继续前进。很明显，这个例子将所有图表粘贴在输出表中完全相同的位置，这可能不是您要查找的内容。