Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un nuevo objeto Shape que representa una polilínea abierta o un polígono cerrado a la colección Shapes especificada.
Sintaxis
expresión. AddPolyline (SafeArrayOfPoints)
expresión 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 la polilínea o el polígono. |
Valor devuelto
Forma
Comentarios
Para los elementos de matriz de SafeArrayOfPoints, los valores numéricos se evalúan en puntos; Las cadenas pueden estar en cualquier unidad compatible con Microsoft Publisher (por ejemplo, "2,5 in").
Para formar un polígono cerrado, asigne las mismas coordenadas a los vértices inicial y final del dibujo del polígono.
Ejemplo
En el siguiente ejemplo se agrega un triángulo a la primera página de la publicación activa. Como los puntos primero y último tienen las mismas coordenadas, el polígono está cerrado.
Dim shpPolyline As Shape
Dim arrPoints(1 To 4, 1 To 2) As Single
arrPoints(1, 1) = 25
arrPoints(1, 2) = 100
arrPoints(2, 1) = 100
arrPoints(2, 2) = 150
arrPoints(3, 1) = 150
arrPoints(3, 2) = 50
arrPoints(4, 1) = 25
arrPoints(4, 2) = 100
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _
(SafeArrayOfPoints:=arrPoints)
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.