API Documentation > CorelDRAW > 2025-v26 > PowerClip > IVGPowerClip
PowerClip.Shapes property
Gets the shapes in the powerclip
Syntax:
Property Get Shapes() As Shapes
Remarks:
The Shapes property returns a Shapes object containing all of the shapes in a PowerClip object.
Examples:
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