Object Model Reference : Classes : S : Shape : Methods : ShapeUngroupAllEx
|
|
| Object Model Reference : Classes : S : Shape : Methods : ShapeUngroupAllEx |
Function UngroupAllEx() As ShapeRange
Member of Shape
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).
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 |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.