Excel VBA グラフをコピペする-Copy、Paste

Excel VBAでワークシートにあるグラフをコピーして貼り付ける方法の記録です。

コピペするには、「Copy」メソッドを使い、貼り付けるには「Paste」メソッドを使います。

貼り付けたあとにデータ範囲を変更する方法も記録しています。

< スポンサーリンク >

グラフをコピペする例

アクティブシートの１つ目のグラフを同じシートにコピペします。

Sub test()
    ActiveSheet.ChartObjects(1).Copy
    ActiveSheet.Paste
End Sub

他のシートに貼り付ける場合は、シートを指定します。

Sub test()
    ActiveSheet.ChartObjects(1).Copy
    Worksheets(“Sheet2”).Paste
End Sub

コピペした後に、データ範囲とグラフタイトルをWithステートメントを使って変更します。

Sub test()
    ActiveSheet.ChartObjects(1).Copy
    ActiveSheet.Paste

    With ActiveSheet.ChartObjects(1).Chart
        .SetSourceData Source:=ActiveSheet.Range(“A7:D10”)
        .ChartTitle.Text = “=’Sheet1′!A7”
    End With
End Sub

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします