ShapeRange.Group (PowerPoint)

Regroupe les formes dans la plage spécifiée. Renvoie les formes groupées sous la forme d’un seul objet Shape .

Étant donné qu’un groupe de formes est traité comme une seule forme, le fait de regrouper et de dissocier des formes modifie le nombre d’éléments dans la collection Shapes et change les numéros d’index des éléments qui suivent les éléments concernés dans la collection.

Dim shpGroup As Shape
Set shpGroup = ActivePresentation.Slides(1).Shapes(1).Ungroup.Group()