Compartilhar via

Propriedade Application.UsableWidth (Project)

  • Artigo

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

Sintaxe

expressão. UsableWidth

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

Comentários

A propriedade UsableWidth equivale à quantidade total de espaço horizontal dentro da janela principal menos o espaço ocupado pelas barras de rolagem.

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.