Método Window.SetWindowRect (Visio)

Establece el tamaño y la posición del área de cliente de una ventana.

Sintaxis

expresión. SetWindowRect( _nLeft_ , _nTop_ , _nWidth_ , _nHeight_ )

Expresión Variable que representa un objeto Window .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
nLeft	Necesario	Long	Coordenada del lado izquierdo de la ventana.
Ntop	Necesario	Long	Coordenada de la parte superior de la ventana.
nWidth	Necesario	Long	Distancia en píxeles entre el lado izquierdo y el lado derecho de la ventana.
nHeight	Necesario	Long	Distancia en píxeles entre la parte superior y la parte inferior de la ventana.

Valor devuelto

Nothing

Comentarios

El método SetWindowRect establece el tamaño y la posición del área de cliente de la ventana con respecto a la ventana que posee la colección Windows a la que pertenece. En el caso de la colección Windows de un objeto Application, esa ventana es la ventana MDICLIENT de la ventana principal de Visio. Para la colección Windows de un objeto Window, esa ventana es el área de cliente de la ventana de dibujo.

SetWindowRect no surte efecto cuando la ventana está acoplada.

Ejemplo

En el siguiente ejemplo, se muestra cómo usar el método SetWindowRect para obtener el tamaño y la posición de un objeto Window. Se abre la ventana Pan & Zoom (Panorámica y zoom) y se imprimen las coordenadas, el ancho y el alto de la ventana en la ventana Inmediato. A continuación, usa SetWindowRect para cambiar el alto de la ventana e imprime los nuevos valores.

Public Sub SetWindowRect_Example() 
 
 Dim vsoApplication As Visio.Application 
 Dim vsoPZWindow As Visio.Window 
 Dim pinLeft As Long, pinTop As Long, pinWidth As Long, pinHeight As Long 
 
 Set vsoApplication = Visio.Application 
 
 'Display the Pan & Zoom window 
 Set vsoPZWindow = vsoApplication.ActiveWindow.Windows.ItemFromID(visWinIDPanZoom) 
 vsoPZWindow.Visible = True 
 
 'Get the existing window size and position 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
 'Change the window height and get the new values 
 vsoPZWindow.SetWindowRect pinLeft, pinTop, pinWidth, pinHeight + 50 
 vsoPZWindow.GetWindowRect pinLeft, pinTop, pinWidth, pinHeight 
 Debug.Print pinLeft, pinTop, pinWidth, pinHeight 
 
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.