Object Model Reference : Classes : P : PowerClip : Properties : PowerClip.Shapes
|
|
| Object Model Reference : Classes : P : PowerClip : Properties : PowerClip.Shapes |
Property Shapes As Shapes
Member of PowerClip
The Shapes property returns a Shapes object containing all of the shapes in a PowerClip object.
The Shapes property returns a read-only value.
The following VBA example fills with red all of the rectangles in a PowerClip object.
Sub Test() |
Dim s As Shape, sp As Shape |
Dim pwc As PowerClip |
For Each s In ActivePage.Shapes |
Set pwc = Nothing |
On Error Resume Next |
Set pwc = s.PowerClip |
On Error GoTo 0 |
If Not pwc Is Nothing Then |
For Each sp In pwc.Shapes |
If sp.Type = cdrRectangleShape Then |
sp.Fill.UniformColor.RGBAssign 255, 0, 0 |
End If |
Next sp |
End If |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.