API Documentation > CorelDRAW > 2025-v26 > 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