Método CanvasShapes.AddPolyline (Word)
Adiciona um polígono fechado ou aberto a uma tela de desenho. Retorna um objeto Shape que representa um polígono.
Sintaxe
expression. AddPolyline
( _SafeArrayOfPoints_
)
expressão Obrigatório. Uma variável que representa um objeto CanvasShapes .
Parâmetros
Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
---|---|---|---|
SafeArrayOfPoints | Obrigatório | Variant | Uma matriz de pares de coordenadas que especifica os vértices do desenho de linha múltipla. |
Comentários
Para formar um polígono fechado, atribua as mesmas coordenadas ao primeiro e último vértices no desenho de linha múltipla.
Exemplo
Este exemplo cria uma linha múltipla aberta em forma de V em uma nova tela de desenho.
Sub NewCanvasPolyline()
Dim docNew As Document
Dim shpCanvas As Shape
Dim sngArray(1 To 3, 1 To 2) As Single
'Creates a new document and adds a drawing canvas
Set docNew = Documents.Add
Set shpCanvas = docNew.Shapes.AddCanvas( _
Left:=100, Top:=75, Width:=200, Height:=300)
'Sets the coordinates of the array
sngArray(1, 1) = 100
sngArray(1, 2) = 75
sngArray(2, 1) = 150
sngArray(2, 2) = 100
sngArray(3, 1) = 100
sngArray(3, 2) = 125
'Adds a V-shaped open polyline to the drawing canvas
shpCanvas.CanvasItems.AddPolyline SafeArrayOfPoints:=sngArray
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.