Share via


ShapeRange.ParentGroup Property

Excel Developer Reference

Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

Syntax

expression.ParentGroup

expression   A variable that represents a ShapeRange object.

Example

In this example, Microsoft Excel adds two shapes to the active worksheet and then removes both shapes by deleting the parent shape of the group.

Visual Basic for Applications
  Sub ParentGroup()
Dim pgShape As Shape

With ActiveSheet.Shapes
    .AddShape Type:=1, Left:=10, Top:=10, _
        Width:=100, Height:=100
    .AddShape Type:=2, Left:=110, Top:=120, _
        Width:=100, Height:=100
    .Range(Array(1, 2)).Group
End With

' Using the child shape in the group get the Parent shape.
Set pgShape = ActiveSheet.Shapes(1).GroupItems(1).<strong>ParentGroup</strong>

MsgBox "The two shapes will now be deleted."

' Delete the parent shape.
pgShape.Delete

End Sub

See Also