05/07 マクロ記録でグラフのコピー方法を探った。

Sub Macro1() 'マクロ記録でグラフのコピー方法を探った。

Range("A10:C14").Select
Selection.Copy

ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
Application.CutCopyMode = False
ActiveChart.ChartArea.Copy

Range("A32:A42").Select
Selection.Copy

Range("C32").Select

End Sub