Método Shapes.AddPolyline (Word)

Agrega un polígono abierto o cerrado a un lienzo de dibujo. Devuelve un objeto Shape que representa el polígono y lo agrega a la colección CanvasShapes.

Sintaxis

expresión. AddPolyline( _SafeArrayOfPoints_ )

expresión necesaria. Variable que representa un objeto Shapes .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
SafeArrayOfPoints	Obligatorio	Variant	Matriz de pares de coordenadas que especifica los vértices de dibujo de la polilínea.

Observaciones

Para formar un polígono cerrado, asigne las mismas coordenadas a los vértices inicial y final del dibujo del polígono.

Ejemplo

En este ejemplo se crea una polilínea abierta en forma de V en un nuevo lienzo de dibujo.

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

Vea también

Objeto de la colección de formas

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.