ShapeRange.ParentGroup (Word)

Gibt ein Shape -Objekt zurück, das die gemeinsame übergeordnete Form eines Formenbereichs darstellt.

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