Word 2010 create macro to draw a line with arrow head 1

[DougP]

using the record macro button does nothing anymore?
I want to click a quick access toobar button and have it start the "Arrow" comannd just like clicking the
Insert Tab on the ribbon then Shapes then Arrow

So I have no idea where to start.


DougP

 

[MakeItSo]

Hi Doug,

I just managed to do it like this:

Set sh = ActiveDocument.Shapes.AddLine(10, 10, 100, 10)
sh.Line.EndArrowheadStyle = msoArrowheadTriangle

Remains the coordinates problem of course.

CHeers,
MakeItSo

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[MakeItSo]

Oooops!

Dim sh As Shape

was missing...

“Knowledge is power. Information is liberating. Education is the premise of progress, in every society, in every family.” (Kofi Annan)
Oppose SOPA, PIPA, ACTA; measures to curb freedom of information under whatever name whatsoever.

 

[DougP]

SWEET
I added a width and I like the bigger head
and made freh line diagonal since that about what I do 90% of the time

Sub CreateArrowLine()
    Dim sh As Shape
    Set sh = ActiveDocument.Shapes.AddLine(10, 10, 100, 100)
    sh.Line.Weight = 2
    sh.Line.EndArrowheadStyle = msoArrowheadOpen
    ' = msoArrowheadTriangle
End Sub

DougP