Duplicate Method
Applies To
ChartObject object, ChartObjects collection object, OLEObject object, OLEObjects collection object, Shape object, ShapeRange collection object.
Description
Duplicates the object and returns a reference to the new copy.
Syntax
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