object that represents the common parent shape of a child shape or a range of child shapes.
expression.ParentGroup
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example creates two shapes in the active document and groups those shapes. Then using one shape in the group, it accesses the parent group and fills all shapes in the parent group with the same fill color. This example assumes that the active document does not currently contain any shapes. If it does, an error may occur.
Sub ParentGroupShape()
Dim pgShape As Shape
'Add two shapes to active document and group
With ActiveDocument.Shapes
.AddShape Type:=msoShapeOval, Left:=72, _
Top:=72, Width:=100, Height:=100
.AddShape Type:=msoShapeHeart, Left:=110, _
Top:=120, Width:=100, Height:=100
.Range(Array(1, 2)).Group
End With
Set pgShape = ActiveDocument.Shapes(1) _
.GroupItems(1).ParentGroup
pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255)
End Sub