Share via


AddLine Method [Excel 2003 VBA Language Reference]

As it applies to the Shapes object, returns a Shape object that represents the new line in a worksheet. As it applies to the CanvasShapes object, returns a Shape object that represents the new line in a drawing canvas.

expression.AddLine(BeginX, Beginy, EndX, EndY)

expression Required. An expression that returns a Shapes object.

BeginX  , BeginY Required Single. The position (in points) of the line's starting point relative to the upper-left corner of the document.

EndX  , EndY Required Single. The position (in points) of the line's end point relative to the upper-left corner of the document.

Example

This example adds a blue dashed line to myDocument.

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With

Applies to | Shapes Collection