Propriedade Application.UsableHeight (Project)

Obtém a altura máxima disponível para uma janela de projeto, em pontos. Double somente leitura.

Sintaxe

expressão. UsableHeight

expressão Uma variável que representa um Aplicativo objeto.

Comentários

A propriedade UsableHeight equivale à quantidade total de espaço vertical dentro da janela principal menos o espaço ocupado pela faixa de opções, barras de status, barras de rolagem e a barra de título.

Exemplo

O exemplo a seguir move as janelas de cada projeto aberto dentro da janela 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.