Método CanvasShapes.AddPolyline (Word)
Agrega un polígono abierto o cerrado a un lienzo de dibujo. Devuelve un objeto Shape que representa el polígono.
Sintaxis
expresión. AddPolyline( _SafeArrayOfPoints_ )
expresión requerida. Variable que representa un objeto CanvasShapes .
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. |
Comentarios
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
Consulte también
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.