ShapeRange.Duplicate (Excel)

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

Dim sreDuplicate As ShapeRange
Set sreDuplicate = ActiveChart.OLEObjects.ShapeRange.Duplicate()