function ParentGroup() {
    let pgShape
    let shapes = ActiveSheet.Shapes
    shapes.AddShape(1, 10, 10, 100, 100)
    shapes.AddShape(2, 110, 120, 100, 100)
    shapes.Range([1,2]).Group()

    // Using the child shape in the group get the Parent shape.
    pgShape = ActiveSheet.Shapes.Item(1).GroupItems.Item(1).ParentGroup

    MsgBox("The two shapes will now be deleted.")

    // Delete the parent shape.
    pgShape.Delete()
}