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