Outline.StartArrow

Property StartArrow As ArrowHead

The StartArrow property represents the starting arrowhead of an outline.

The following code example replaces all starting arrowheads that are represented by the third arrow from the arrowhead list with the fifth arrowhead from the list. The color of the outline of the shape is changed to red.

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  With s.Outline 
   If .Type = cdrOutline Then 
    If .StartArrow.Index = 3 Then 
     .StartArrow = ArrowHeads(5) 
     .Color.RGBAssign 255, 0, 0 
    End If 
   End If 
  End With 
 Next s 
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