| Name | Type | Description |
|---|---|---|
| Name |
String
|
|
| Type | Specifies the type of shape, and returns cdrShapeType. |
|
| StaticID |
Long
|
Specifies the shape's unique ID. |
| Recursive |
Boolean
|
Specifies whether to iterate through all shapes. |
Sub Test() Dim s As Shape Set s = ActivePage.FindShape(Name:="Frame", Type:=cdrRectangleShape) If s Is Nothing Then MsgBox "The rectange 'Frame' cannot be found on page " & ActivePage.Index Else s.CreateSelection End If End Sub