Examples:
The following VBA example identifies all arrowheads of selected objects that have an index of one and replaces them with arrowheads that have an index equal to the total number of arrowhead objects. This replaces the selected arrowheads with the last arrowhead in the ArrowHeads collection.
Sub Count()
Dim s As Shape
Dim Arrow As ArrowHead
Set Arrow = ArrowHeads(ArrowHeads.Count)
For Each s In ActiveDocument.Selection.Shapes
If s.Outline.Type = cdrOutline Then
With s.Outline
If .StartArrow.Index = 1 Then
.StartArrow = Arrow
End If
If .EndArrow.Index = 1 Then
.StartArrow = Arrow
End If
End With
End If
Next s
End Sub