Application.ArrowHeads

Property ArrowHeads As ArrowHeads

The Arrowheads property returns the ArrowHeads collection.

The Arrowheads property returns a read-only value.

The following code example applies an arrowhead with an index of 5 to the beginning of the outlines of each selected object.

Sub ItemArrowHead() 
 Dim s As Shape 
 For Each s In ActiveDocument.Selection.Shapes 
  If s.Outline.Type = cdrOutline Then 
   s.Outline.StartArrow = ArrowHeads.Item(5) 
  'can also be referenced as s.Outline.StartArrow = ArrowHeads (5) 
  End If 
 Next s 
End Sub