Line Ends / arrows

MeridenJohn said:

Is there a way to delete all the built in line ends and only use the ones I like?

You can delete an arrowhead through the Outline Pen dialog:

Sub delete_all_arrowheads()

    Do Until Application.ArrowHeads.Count = 0
        Application.ArrowHeads.Remove 1
    Loop

End Sub

If you ever want to get back to the full set of standard arrowheads, you could do so by deleting the arrows.end file to which grogo refers. Doing so would lose any custom arrowheads you had in there.

grogo said:

Eskimo - did you test this code?  It seems to cause a problem if run it and then tried to edit the end style.

Yes, I did test it. Are you referring to seeing this when you click "Options" in the Outline Pen dialog? Or to something different?

After deleting all arrowheads, I followed up by creating a custom arrowhead, because the question I was trying to address was, "Is there a way to delete all the built in line ends and only use the ones I like?". Once an arrowhead was available, clicking "Options" no longer produced that error.

To delete "all but one" of the arrowheads, then this code could be used:

Sub delete_all_but_one_arrowhead()

    Do Until Application.ArrowHeads.Count = 1
        Application.ArrowHeads.Remove 2
    Loop

End Sub