ArrowHead.Index

Property Index As Long

The Index property returns a value associated with an arrowhead object. Each type of arrowhead in CorelDRAW is identified by an index number. For example, ArrowHeads(5) refers to the fifth arrowhead in the arrowheads collection of CorelDRAW.

The Index property returns a read-only value.

The following code example takes all of the shapes in the current selection, and determines which shapes have outlines. If the shape has an outline, an arrowhead with an index of five replaces all of the arrowheads that have an index of 1. This is done for both the start arrows and end arrows of the shape objects.

Sub Index() 
 Dim s As Shape 
 For Each s In ActiveDocument.Selection.Shapes 
  If s.Outline.Type = cdrOutline Then 
   With s.Outline 
    If .StartArrow.Index = 1 Then 
     .StartArrow = ArrowHeads(5) 
    End If 
    If s.Outline.EndArrow.Index = 1 Then 
     s.Outline.EndArrow = ArrowHeads(5) 
    End If 
   End With 
  End If 
 Next s 
End Sub