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.
Adds a new Shape object representing a line to the specified Shapes collection.
expression.AddLine(BeginX, BeginY, EndX, EndY)
expression Required. An expression that returns one of the objects in the Applies To list.
BeginX Required Variant. The x-coordinate of the beginning point of the line.
BeginY Required Variant. The y-coordinate of the beginning point of the line.
EndX Required Variant. The x-coordinate of the ending point of the line.
EndY Required Variant. The y-coordinate of the ending point of the line.
Remarks
For the BeginX, BeginY, EndX, and EndY arguments, numeric values are evaluated in points; strings can be in any units supported by Microsoft Publisher (for example, "2.5 in").
Example
The following example adds a new line to the first page of the active publication.
Dim shpLine As Shape
Set shpLine = ActiveDocument.Pages(1).Shapes.AddLine _
(BeginX:=144, BeginY:=144, _
EndX:=180, EndY:=72)