Shape.ParentGroup property - Developer Area

API Documentation > Corel DESIGNER > 2017.1 > Shape > IVGShape

Shape.ParentGroup property

Returns a shape object that represents the group shape to which the active shape belongs to

Syntax:

Property Get ParentGroup() As Shape

Remarks:

The ParentGroup property returns a Shape object that represents the group shape to which the active shape belongs. If the shape is not part of a group, Nothing is selected.

Examples:

The following VBA example extracts an object from a group and places it at the same level as the group object.

Sub Test()
  Dim s As Shape, g As Shape
  Set s = ActiveShape
  If s Is Nothing Then
    MsgBox "Please select an object", vbCritical
    Exit Sub
  End If
  Set g = s.ParentGroup
  If g Is Nothing Then
    MsgBox "Please select an object within a group", vbCritical
    Exit Sub
  End If
  ActiveDocument.PreserveSelection = False
  g.CreateSelection
  g.Ungroup
  s.Selected = False
  ActiveSelection.Group
  s.CreateSelection
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25