VBA：粘贴不同名称的图表

我使用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"