Método Application.DocSize (Project)

Define a largura e a altura da janela ativa.

Sintaxe

expression. DocSize( _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 ativa.
Height	Opcional	Long	Um número que especifica a nova altura da janela ativa.
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 organiza as janelas dos projetos abertos verticalmente dentro da janela principal do projeto.

Sub TileProjectWindowsVertically() 
 
    Dim I As Long   ' Index used in For...Next loop 
     
    For I = 1 To Application.Windows.Count 
        Windows(I).Activate 
        DocSize Width:=UsableWidth / Windows.Count, Height:=UsableHeight, Points:=True 
        DocMove XPosition:=(I - 1) * UsableWidth / Windows.Count, YPosition:=0, Points:=True 
    Next I 
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.