Como redimensionar automaticamente em uma planilha do Excel
Passo 1
Clique na guia "Desenvolvedor" e clique em "Visual Basic" para abrir a janela do editor VB. Clique no menu "Inserir" e clique em "Módulo" para adicionar um novo módulo de código.
Passo 2
Crie um novo subprocesso:
Private Sub resizeSheet ()
Passo 3
Defina a localização da janela principal do Excel usando as propriedades Left e Top do objeto do aplicativo:
Application.Left = 133.75 Application.Top = 7, 75
Passo 4
Define a largura e a altura da janela principal do Excel:
Application.Width = 1173.75 Application.Height = 884, 25
Passo 5
Adicione o seguinte código para definir o local da planilha do Excel, usando as propriedades Top e Left do objeto do aplicativo:
ActiveWindow.WindowState = xlNormal com ActiveWindow .Top = 111.25 .Left = 19.75 terminar com
Passo 6
Defina o tamanho da janela da planilha do Excel usando as propriedades "Largura" e "Altura":
Com ActiveWindow .Width = 1010.25 .Height = 590.25 fim com
Passo 7
Finalize o procedimento com "End Sub". Pressione "F5" para executar o procedimento.