Outline.EndArrow

Property EndArrow As ArrowHead

The EndArrow property represents the ending arrowhead of an outline.

The following code example applies the fifth arrowhead to the ending point of the selected curve:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveShape 
 If s Is Nothing Then 
  MsgBox "Nothing is selected." 
  Exit Sub 
 End If 
 If s.Outline.Type = cdrOutline Then 
  s.Outline.EndArrow = ArrowHeads(5) 
 End If 
End Sub 
Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Outline.Type = cdrOutline Then 
   s.Outline.StartArrow = Nothing 
   s.Outline.EndArrow = Nothing 
  End If 
 Next s 
End Sub