Método Shapes.AddPolyline (Word)

Adiciona um polígono fechado ou aberto a uma tela de desenho. Retorna um objeto Shape que representa o polígono e o adiciona à coleção CanvasShapes.

Sintaxe

expression. AddPolyline( _SafeArrayOfPoints_ )

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

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

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.