Shape.Duplicate (PowerPoint)

Cette méthode crée une copie de l’objet Shape spécifié, ajoute la nouvelle forme à la collection Shapes , puis renvoie un nouvel objet ShapeRange . Les objets dupliqués sont placés à la fin de la collection Shapes.

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