ShapeRange.Duplicate (Excel)

Duplica o objeto e retorna uma referência para a nova cópia.

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