Page.FindShapes

Function FindShapes([Name As String], [Type As cdrShapeType = cdrNoShape], [Recursive As Boolean = True]) As ShapeRange

Member of Page

The FindShapes method locates all shapes that have certain properties on a page. It returns a ShapeRange object that contains all shapes that are found.


Parameters	Description
Name	Specifies the name of the shape on the page This parameter is optional.
Type	Specifies the type of shape. This value returns cdrShapeType. This parameter is optional, and its default value is cdrNoShape (0).
Recursive	Specifies whether to iterate through all of the shapes This parameter is optional, and its default value is True.

The following code example finds all rectangles on the active page and fills them with a uniform red fill:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrRectangleShape) 
 If sr.Count <> 0 Then 
  sr.ApplyUniformFill CreateRGBColor(255, 0, 0) 
 Else 
  MsgBox "There are no rectangles on the current page" 
 End If 
End Sub