| Name | Type | Description |
|---|---|---|
| Name |
String
|
|
| Type | Specifies the shape type, 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 = ActiveLayer.FindShape(Name:="Frame", Type:=cdrRectangleShape) If s Is Nothing Then MsgBox "The rectangle 'Frame' cannot be found on layer " & ActiveLayer.Name Else s.CreateSelection End If End Sub