ShapeRange.Duplicate (PowerPoint)

Creates a duplicate of the specified ShapeRange object, adds the range of shapes to the Shapes collection, and then returns the 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).Ungroup.Duplicate()