Compartir a través de

Propiedad Application.UsableHeight (Project)

  • Artículo

Obtiene el alto máximo disponible para una ventana de proyecto en puntos. Double de solo lectura.

Sintaxis

expresión. UsableHeight

expresión Variable que representa un objeto Application.

Comentarios

La propiedad UsableHeight es igual a la cantidad total de espacio vertical dentro de la ventana principal menos el espacio que ocupan la cinta de opciones, las barras de estado, las barras de desplazamiento y la barra de título.

Ejemplo:

En el ejemplo siguiente se mueven las ventanas de cada proyecto abierto dentro de la ventana principal.

Sub FitWindows() 
 
 Dim W As Window ' The Window object used in For Each loop 
 
 For Each W In Application.Windows 
 ' Adjust the height of each window, if necessary. 
 If W.Height > UsableHeight Then 
 W.Height = UsableHeight 
 W.Top = 0 
 ' Adjust the vertical position of each window, if necessary. 
 ElseIf W.Top + W.Height > UsableHeight Then 
 W.Top = UsableHeight - W.Height 
 End If 
 
 ' Adjust the width of each window, if necessary. 
 If W.Width > UsableWidth Then 
 W.Width = UsableWidth 
 W.Left = 0 
 ' Adjust the horizontal position of each window, if necessary. 
 ElseIf W.Left + W.Width > UsableWidth Then 
 W.Left = UsableWidth - W.Width 
 End If 
 Next W 
 
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.