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"

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

1 个答案: