Método Page.DrawRectangle (Visio)

Agrega un rectángulo a la colección Shapes de una página, un patrón o un grupo.

Sintaxis

expresión. DrawRectangle( _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 al rectángulo.
y1	Obligatorio	Double	Coordenada y de una esquina del cuadro que circunscribe al rectángulo.
x2	Obligatorio	Double	Coordenada x de la otra esquina del cuadro que circunscribe al rectángulo.
y2	Obligatorio	Double	Coordenada y de la otra esquina del cuadro que circunscribe al rectángulo.

Valor devuelto

Forma

Comentarios

Utilizar el método DrawRectangle equivale a usar la herramienta Rectángulo 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 el rectángulo.

Ejemplo:

En el ejemplo siguiente se muestra cómo dibujar un rectángulo en la página activa.

 
Public Sub DrawRectangle_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1) 
 
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.