excel - VBA：粘贴具有不同名称的图表

Question

我使用 VBA 复制和粘贴图表。

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

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

问题是我最终有两个同名的图表（"Chart1"），当我尝试重命名它们时：

'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"