ShapeRange.Duplicate (Excel)

Duplica el objeto y devuelve una referencia a la nueva copia.

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