Método CanvasShapes.AddLine (Word)
Adiciona uma linha a uma tela de desenho. Retorna um objeto Shape que representa a linha e o adiciona à coleção CanvasShapes.
Sintaxe
expressão. AddLine (BeginX, Beginy, EndX, EndY)
expressão Obrigatório. Uma variável que representa um objeto CanvasShapes .
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. |
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
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.