Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
Crea una forma cuyo trazado consta de un arco elíptico definido por los dos puntos y la marca que se pasan como argumentos.
Sintaxis
expresión.
DrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )
expresión Variable que representa un objeto Page .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| xBegin | Obligatorio | Double | Coordenada x del punto inicial del arco. |
| yBegin | Obligatorio | Double | Coordenada y del punto inicial del arco. |
| xEnd | Obligatorio | Double | Coordenada x del punto final del arco. |
| yEnd | Obligatorio | Double | Coordenada y del punto final del arco. |
| SweepFlag | Obligatorio | VisArcSweepFlags | Tipo de arco, cóncavo o convexo. |
Valor devuelto
Forma
Comentarios
Los puntos inicial y final definen el rectángulo delimitador del arco y el _SweepFlag_argument determina cuál de los dos arcos posibles dentro del rectángulo delimitador se dibuja. El rectángulo delimitador siempre se alinea con el sistema de coordenadas de página; es decir, el eje x de la elipse es paralelo al eje x de la página.
Los siguientes valores posibles para el argumento SweepFlag se declaran en VisArcSweepFlags en la biblioteca de tipos de Visio.
| Constante | Valor | Descripción |
|---|---|---|
| visArcSweepFlagConcave | 0 | Arco cóncavo |
| visArcSweepFlagConvex | 1 | Arco convexo |
Si SweepFlag es visArcSweepFlagConcave, la línea que une el centro de la elipse con el arco pasa por ángulos decrecientes; si es visArcSweepFlagConvex, se desplaza a través de ángulos crecientes.
Ejemplo
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar el método DrawQuarterArc para dibujar un arco cóncavo en la página de dibujo.
Public Sub DrawQuarterArc_Example
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawQuarterArc(3, 3, 6, 8, visArcSweepFlagConcave)
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.