复制指定对象,并返回一个对新复制对象的引用。
expression.Duplicate
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例复制工作表 Sheet1 上嵌入的第一个图表,然后选定新复制的图表。
Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate dChart.Select