Método Shapes.AddLine (Word)

Adiciona uma linha a uma tela de desenho.

Sintaxe

expressão. AddLine (BeginX, Beginy, EndX, EndY)

expressão Obrigatório. Uma variável que representa um objeto Shapes .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
InícioX	Obrigatório	Single	A posição horizontal, medida em pontos, do ponto inicial da linha, relativa à tela de desenho.
InícioY	Obrigatório	Single	A posição vertical, medida em pontos, do ponto inicial da linha, relativa à tela de desenho.
EndX	Obrigatório	Single	A posição horizontal, medida em pontos, do ponto final da linha relativa à tela de desenho.
EndY	Obrigatório	Single	A posição vertical, medida em pontos, do ponto final da linha relativa à tela de desenho.

Valor de retorno

Shape

Comentários

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

Exemplo

Este exemplo adiciona uma linha roxa com uma seta a uma nova tela de desenho.

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

Confira também

Objeto da coleção Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.