Dim lineNew As Shape
'Add new line to document
Set lineNew = ActiveDocument.Shapes.AddLine _
(BeginX:=100, BeginY:=100, EndX:=60, EndY:=20)
'Format line
With lineNew.Line
.BeginArrowheadStyle = KsoArrowheadNone
.EndArrowheadStyle = KsoArrowheadTriangle
.ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
End With