ShapeRange.ParentGroup (Word)

Retorna um objeto Shape que representa a forma pai comum de um intervalo de formas.

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