Método Page.DrawOval (Visio)

Agrega un óvalo (elipse) a la colección Shapes de una página.

Sintaxis

expresión. DrawOval( _x1_ , _y1_ , _x2_ , _y2_ )

Expresión Variable que representa un objeto Page .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
x1	Obligatorio	Double	Coordenada x de una esquina del cuadro que circunscribe a la elipse.
y1	Obligatorio	Double	Coordenada y de una esquina del cuadro que circunscribe a la elipse.
x2	Obligatorio	Double	Coordenada x de la otra esquina del cuadro que circunscribe a la elipse.
y2	Obligatorio	Double	Coordenada y de la otra esquina del cuadro que circunscribe a la elipse.

Valor devuelto

Forma

Comentarios

Utilizar el método DrawOval equivale a usar la herramienta Elipse en la aplicación. Los argumentos se expresan en unidades de dibujo internas con respecto al espacio de coordenadas del patrón, la página o el grupo donde se va a dibujar la elipse.

Ejemplo:

En el ejemplo siguiente se muestra cómo dibujar un óvalo (elipse) en la página activa.

 
Public Sub DrawOval_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawOval(1.5, 10.5, 7.5, 6.5) 
 
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.