ShapeUngroupAllEx

Function UngroupAllEx() As ShapeRange

Member of Shape

The UngroupAllEx method ungroups all of the shapes in the specified group and any subgroups that the current group contains. The shapes are returned as a ShapeRange object.

The following code 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