Shape.Duplicate (PowerPoint)

Creates a duplicate of the specified Shape object, adds the new shape to the Shapes collection, and then returns a new ShapeRange object. The duplicated objects are placed at the end of the Shapes collection.

Dim sreDuplicate As ShapeRange
Set sreDuplicate = ActivePresentation.Slides(1).Shapes(1).Duplicate()