Shapes.AddLine (Word)

Adiciona uma linha a uma tela de desenho.

Para criar uma seta, use a propriedade Line para formatar uma linha.

AddLine (BeginX, BeginY, EndX, EndY, Anchor)

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

O seguinte argumento é opcional

BeginX (Single) - A posição horizontal, medida em pontos, do ponto inicial da linha, relativa à tela de desenho.

BeginY (Single) - A posição vertical, medida em pontos, do ponto inicial da linha, relativa à tela de desenho.

EndX (Single) - A posição horizontal, medida em pontos, do ponto final da linha relativa à tela de desenho.

EndY (Single) - A posição vertical, medida em pontos, do ponto final da linha relativa à tela de desenho.

Optional arguments

The following argument is optional

Anchor - Range