Duplicate Method

Duplicates the object and returns a reference to the new copy.

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