excel - VBA: 別の名前でチャートを貼り付けます

Question

VBA を使用してグラフをコピーして貼り付けます。

    ActiveSheet.ChartObjects("Chart1").Activate
    ActiveChart.ChartArea.Copy

    ActiveSheet.PasteSpecial Format:="Microsoft Office Drawing Object", Link:= _
        False, DisplayAsIcon:=False

問題は、同じ名前 ( "Chart1") の 2 つのチャートができてしまい、後で名前を変更しようとすると、次のようになることです。

'ActiveSheet.Shapes("Chart1").Name = CHART_NAME

どちらも改名します。

別の名前でチャートを貼り付けるにはどうすればよいですか。

Answer 1

Duplicate() を使用する場合はどうでしょうか。

Dim source As ChartObject
Set source = ActiveSheet.ChartObjects("Chart1")

Dim newChart As Object
Set newChart = source.Duplicate
newChart.Name = "newChartName"