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 .

Para formar um polígono fechado, atribua as mesmas coordenadas ao primeiro e último vértices no desenho de linha múltipla.

AddPolyline (SafeArrayOfPoints, Anchor)

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

Arguments

O seguinte argumento é necessário

SafeArrayOfPoints (Long) - Uma matriz de pares de coordenadas que especifica os vértices do desenho de linha múltipla.

Optional arguments

The following argument is optional

Anchor - Range