ShapeRange.Duplicate (Excel)

Cette méthode duplique l'objet et renvoie une référence à la nouvelle copie.

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