Examples:
The following VBA 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