AddLine Method

AddLine Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Creates a line. Returns a Shape object that represents the new line.

expression**.AddLine**(BeginX, BeginY, EndX, EndY)

expression   Required. An expression that returns one of the objects in the Applies To list.

BeginX  Required Single. The horizontal position, measured in points, of the line's starting point relative to the left edge of the slide.

BeginY   Required Single. The vertical position, measured in points, of the line's starting point relative to the top edge of the slide.

EndX   Required Single. The horizontal position, measured in points, of the line's ending point relative to the left edge of the slide.

EndY   Required Single. The vertical position, measured in points, of the line's ending point relative to the top edge of the slide.

Example

This example adds a blue dashed line to myDocument.

  Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(BeginX:=10, BeginY:=10, _
        EndX:=250, EndY:=250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With