API Documentation > CorelDRAW > 2025-v26 > Shape > IVGShape
Shape.UngroupEx method
Returns the ungrouped objects as a shape range
Syntax:
Function UngroupEx() As ShapeRange
Remarks:
The UngroupEx method ungroups all shapes in a specified group and returns the ungrouped shapes as a shape range (or ShapeRange object).
Examples:
The following VBA example creates two circles and builds a blend between them. The blend is separated, while the blend steps are ungrouped and scattered randomly.
Sub Test()
Dim s1 As Shape, s2 As Shape
Dim s As Shape
Dim g As ShapeRange, stps As ShapeRange
Set s1 = ActiveLayer.CreateEllipse(0, 0, 2, 2)
s1.Fill.UniformColor.RGBAssign 255, 0, 0
Set s2 = ActiveLayer.CreateEllipse(6, 6, 7, 7)
s2.Fill.UniformColor.RGBAssign 255, 255, 0
s1.CreateBlend s2
Set g = s1.Effects(1).Separate
Set stps = g(1).UngroupEx
For Each s In stps
  s.Move (Rnd() - 0.5) * s.SizeWidth, (Rnd() - 0.5) * s.SizeHeight
Next s 
End Sub