Duplicate Method [Excel 2003 VBA Language Reference]
Duplicates the object and returns a reference to the new copy.
expression**.Duplicate**
expression Required. An expression that returns an object in the Applies To list.
Example
This example duplicates embedded chart one on Sheet1 and then selects the copy.
Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate
dChart.Select
Applies to | ChartObject Object | ChartObjects Collection Object | OLEObject Object | OLEObjects Collection Object | Shape Object | ShapeRange Collection