ShapeRange.Duplicate (Excel)

Dupliziert das Objekt und gibt einen Bezug auf die neue Kopie zurück.

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