Shape.UngroupAllEx method - Developer Area

API Documentation > Corel DESIGNER > 2022-v24.1 > Shape > IVGShape

Shape.UngroupAllEx method

Ungroups all sub-groups and returns the ungrouped objects as a shape range

Syntax:

Function UngroupAllEx() As ShapeRange

Remarks:

The UngroupAllEx method ungroups all shapes in a specified group and in any subgroups contained by it. The shapes are returned as a shape range (or ShapeRange object).

Examples:

The following VBA example fills each subgroup with a random RGB color.

Sub Test()
  Dim s As Shape, sg As Shape, sr As ShapeRange
  For Each s In ActivePage.Shapes
    If s.Type = cdrGroupShape Then
      For Each sg In s.Shapes
        If sg.Type = cdrGroupShape Then
          Set sr = sg.UngroupAllEx
          sr.ApplyUniformFill CreateRGBColor(255 * (Rnd() * 255), 255 * (Rnd * 255), 255 * (Rnd * 255))
        End If
      Next sg
    End If
  Next s
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