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

Excel VBAでワークシートにあるグラフをコピペするには、「Copy」メソッドを使います。

VBAグラフコピペ

下図はExcel2016です。

 

< スポンサーリンク >

 

構文

式.Copy

 

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

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

VBAグラフコピペ

VBAグラフコピペ

 

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

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

VBAグラフコピペ

VBAグラフコピペ

 

コピペした後に、データ範囲とグラフタイトルを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

VBAグラフコピペ

VBAグラフコピペ

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ