Duplicate 方法

       

复制指定对象,并返回一个对新复制对象的引用。

expression.Duplicate

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例复制工作表 Sheet1 上嵌入的第一个图表,然后选定新复制的图表。

Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate
dChart.Select