ShapeRange.ParentGroup (Word)

Renvoie un objet Shape qui représente la forme parente commune d’une plage de formes.

Dim sre As ShapeRange: Set sre =  
Dim shpParentGroup As Shape
Set shpParentGroup = sre.ParentGroup