ShapeRange.IndexOf

Function IndexOf(Shape As Shape) As Long

The IndexOf method returns the index number of the specified shape in the range. If the shape is not in the range, 0 is returned.


Parameters	Description
Shape	Specifies a shape in the range

The following code example determines whether the selected shape is a curve residing on the active layer of the document:

Sub Test() 
 Dim sr As ShapeRange 
 Set sr = ActiveLayer.FindShapes(, cdrCurveShape) 
 If sr.IndexOf(ActiveShape) = 0 Then 
  MsgBox "The selected shape is not a curve residing on the current 
layer" 
 End If 
End Sub