ShapeRange.Ungroup (Word)

Dissocie toutes les formes groupées dans la plage de formes spécifiée, dissocie les images et les objets OLE de la forme ou de la plage de formes spécifiée, et renvoie les formes dissociées en tant qu’objet ShapeRange unique.

Comme un groupe de formes est traité comme un objet unique, grouper et 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 formes dissociées dans la collection.

Dim sre As ShapeRange: Set sre =  
Dim sreUngroup As ShapeRange
Set sreUngroup = sre.Ungroup()