Compartir a través de

Método Page.DrawPolyline (Visio)

  • Artículo

Crea una forma cuyo trazado es una polilínea que se extiende a lo largo de un conjunto de puntos determinado.

Sintaxis

expresión. DrawPolyline( _xyArray()_ , _Flags_ )

Expresión Variable que representa un objeto Page .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
xyArray() Obligatorio Double Matriz de valores x e y alternos que definen puntos de la ruta de la nueva forma.
Flags Obligatorio Integer Marcas que influyen en cómo se dibuja la forma.

Valor devuelto

Forma

Comentarios

El método DrawPolyline crea una forma nueva cuyo trazado se compone de una secuencia de segmentos de línea y cuyos extremos coinciden con los puntos especificados en xyArray. Llamar al método DrawPolyline equivale a llamar al método DrawSpline con una tolerancia de cero (0) y una marca de visSplineAbrupt.

Los puntos de control se deben expresar en unidades de dibujo internas (pulgadas) con respecto al espacio de coordenadas de la página, el patrón o el grupo donde se va a crear la nueva forma. La matriz que se pasa debe ser del tipo SAFEARRAY y contener valores de punto flotante de 8 bytes pasados mediante referencia (VT_R8|VT_ARRAY|VT_BYREF). Este es el modo en el que Microsoft Visual Basic pasa las matrices a los objetos de automatización.

El argumento Flags es una máscara de bits que especifica las opciones de dibujo para la nueva forma. Su valor puede incluir visPolyline1D (8) o visPolyarcs (256). Si Flags incluye:

  • visPolyline1D y si el primer y último punto de xyArray no coinciden, el método DrawPolyline genera una forma con un comportamiento unidimensional (1D); De lo contrario, genera una forma con un comportamiento bidimensional (2D).

  • visPolyarcs, Microsoft Visio genera una secuencia de arcos en lugar de una secuencia de segmentos de línea; xyArray debe especificar el punto x,y inicial de la secuencia seguido por tripletes de curvatura x,y. Visio genera una forma con filas EllipticalArcTo en las que la curvatura del arco coincide con el valor especificado.

Si los puntos inicial y final de xyArray coinciden, el método DrawPolyline da como resultado una forma rellena.

Ejemplo:

En el ejemplo siguiente se muestra cómo dibujar dos formas de polilínea que tienen un comportamiento 2D y 1D, respectivamente, en la página activa.

 
Public Sub DrawPolyline_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim adblXYPoints(1 To 8) As Double 
 Dim intCounter As Integer 
 
 'Initialize array with coordinates. 
 adblXYPoints(1) = 1 
 adblXYPoints(2) = 1 
 adblXYPoints(3) = 3 
 adblXYPoints(4) = 3 
 adblXYPoints(5) = 5 
 adblXYPoints(6) = 1 
 adblXYPoints(7) = 1 
 adblXYPoints(8) = 2 
 
 'Use the DrawPolyline method to draw a shape that has 2D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, 0) 
 
 'Increase the Y-coordinate of the array by 4 to separate 
 'the next shape drawn from the first. 
 For intCounter = 2 To UBound(adblXYPoints) Step 2 
 adblXYPoints(intCounter) = adblXYPoints(intCounter) + 4 
 Next intCounter 
 
 'Use the DrawPolyline method to draw a shape that has 1D behavior. 
 Set vsoShape = ActivePage.DrawPolyline(adblXYPoints, visPolyline1D) 
 
End Sub

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.