Método Window.GetWindowRect (Visio)

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

Sintaxis

expresión. GetWindowRect( _pnLeft_ , _pnTop_ , _pnWidth_ , _pnHeight_ )

Expresión Variable que representa un objeto Window .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
pnLeft	Necesario	Long	Coordenada del lado izquierdo de la ventana.
pnTop	Necesario	Long	Coordenada de la parte superior de la ventana.
pnWidth	Necesario	Long	Distancia en píxeles entre el lado izquierdo y el lado derecho de la ventana.
pnHeight	Necesario	Long	Distancia en píxeles entre la parte superior y la parte inferior de la ventana.

Valor devuelto

Nothing

Comentarios

El método GetWindowRect obtiene el tamaño y la posición del área de cliente de la ventana con respecto a la ventana que incluye 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 Microsoft Visio. Para la colección Windows de un objeto Window, esa ventana es el área de cliente de la ventana de dibujo.

Ejemplo

En el siguiente ejemplo, se muestra cómo utilizar el método GetWindowRect 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.

Public Sub GetWindowRect_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.