Método Application.AppSize (Project)

Define a largura e a altura da janela principal.

Sintaxe

expression. AppSize( _Width_, _Height_, _Points_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Width	Opcional	Long	Um número que especifica a nova largura da janela principal.
Height	Opcional	Long	Um número que especifica a nova altura da janela principal.
Points	Opcional	Boolean	True se Width e Height são medidos em pontos. False se eles são medidos em pixels. O valor padrão é False.

Valor de retorno

Boolean

Exemplo

O exemplo a seguir move a janela principal do Project à esquerda metade da tela.

Sub MoveMainWindowToLeftHalf() 
 
    Dim WindowHeight As Long 
     
    ' Remember the height when maximized. 
    Application.WindowState = pjMaximized 
    WindowHeight = Application.Height 
     
    AppSize Width:=UsableWidth / 2, Height:=UsableHeight, Points:=True 
    Application.Left = 0 
    ' Be sure the window uses all the available height. 
    If Application.Height < WindowHeight Then Application.Height = WindowHeight 
     
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.