Shapes.AddLine method (Word)
Adds a line to a drawing canvas.
Syntax
expression.AddLine (BeginX, BeginY, EndX, EndY)
expression Required. A variable that represents a Shapes object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| BeginX | Required | Single | The horizontal position, measured in points, of the line's starting point, relative to the drawing canvas. |
| BeginY | Required | Single | The vertical position, measured in points, of the line's starting point, relative to the drawing canvas. |
| EndX | Required | Single | The horizontal position, measured in points, of the line's endpoint, relative to the drawing canvas. |
| EndY | Required | Single | The vertical position, measured in points, of the line's endpoint, relative to the drawing canvas. |
Return value
Remarks
To create an arrow, use the Line property to format a line.
Example
This example adds a purple line with an arrow to a new drawing canvas.
Sub NewCanvasLine()
Dim shpCanvas As Shape
Dim shpLine As Shape
'Add new drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes _
.AddCanvas(Left:=100, Top:=75, _
Width:=150, Height:=200)
'Add a line to the drawing canvas
Set shpLine = shpCanvas.CanvasItems.AddLine( _
BeginX:=25, BeginY:=25, EndX:=150, EndY:=150)
'Add an arrow to the line and sets the color to purple
With shpLine.Line
.BeginArrowheadStyle = msoArrowheadDiamond
.BeginArrowheadWidth = msoArrowheadWide
.ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255)
End With
End Sub
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.