Shapes.AddLine (PowerPoint)

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

AddLine (BeginX, BeginY, EndX, EndY)

Dim shpAddLine As Shape
Set shpAddLine = ActiveWindow.Selection.SlideRange(1).Shapes.AddLine(BeginX:=, BeginY:=, EndX:=, EndY:=)

Arguments

The following arguments are required:

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

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

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

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