1枚のシートから別のシートにチャートをコピーする

Question

私は2枚のシートを持っており、シート1からシート2にチャートをコピーしたいと思います。

私は以下のコードを使用しています。コードはSheet1からチャートを削除して、それをsheet2に貼り付けています。代わりに、私はちょうどチャートの複製を持っていたいと思います。

さらに、私はチャートを特定の範囲に持っていたいと思います。どのように編集できますか？

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 

これはあなたを続ける必要がある単純な例です。明らかに、この例では、出力シートの正確な同じ場所にすべてのチャートを貼り付けています。これはおそらくあなたが探しているものではありません。