AddLine Method Example

This example adds a dashed, green line to a new document.

Set myDocument = Documents.Add
Set myLine = myDocument.Shapes.AddLine(100, 100, 60, 20)
With myLine.Line
    .DashStyle = msoLineDash
    .ForeColor.RGB = RGB(0, 128, 0)
End With

This example adds a line to the active document and then formats the line as a red arrow.

Set myLine = ActiveDocument.Shapes.AddLine(100, 100, 60, 20)
With myLine.Line
    .BeginArrowheadStyle = msoArrowheadNone
    .EndArrowheadStyle = msoArrowheadTriangle
    .ForeColor.RGB = RGB(128, 0, 0)
End With