PowerClip.Shapes

Property Shapes As Shapes

The Shapes property returns the Shapes containing all of the shapes in the PowerClip.

The Shapes property returns a read-only value.

The following code example fills with red all rectangles that are placed inside a PowerClip:

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