CanvasShapes.AddLine (Word)

Agrega una línea a un lienzo de dibujo.

Para crear una flecha, utilice la propiedad Line para dar formato a una línea.

AddLine (BeginX, BeginY, EndX, EndY)

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

Arguments

Estos son los argumentos con nombre :

BeginX (Single) - Posición horizontal, medida en puntos, del punto de inicio de la línea con relación al lienzo de dibujo.

BeginY (Single) - Posición vertical, medida en puntos, del punto de inicio de la línea con relación al lienzo de dibujo.

EndX (Single) - Posición horizontal, medida en puntos, del extremo final de la línea con relación al lienzo de dibujo.

EndY - Single