Ajustar as Resolução da Tela no Excel com VBA

Neste artigo você aprenderá como ajustar a resolução de tela em várias planilhas de uma pasta de trabalho no Excel com VBA de forma automática.

Algo que pode acontecer com frequência com os seus clientes, internos ou externos, é você criar um dashboard ou relatório no Excel e ao abrir em outro computador a visualização ficar diferente da sua.

Isso acontece se a resolução do monitor do cliente for diferente da resolução original aonde foi criada.

Veja como resolver isto manualmente e como automatizar o processo.

Como Ajustar a Tela Automaticamente

Veja a planilha abaixo.

Veja que a visualização do dashboard não está bem ajustada.

Para realizar o ajuste da visualização manualmente siga o procedimento:

Selecione o intervalo que queremos que seja exibido, selecionando no caso o dashboard.
Em seguida clique na guia Exibir -> Zoom na Seleção. Isso fará com que seja realizado um zoom e seja encaixada a visualização do dashboard.

Com esta mesma lógica podemos fazer com que este procedimento seja automatizado, veja como em seguida.

Automatizar Ajuste da Planilha Conforme Resolução no Excel

Para automatizar o ajuste da planilha conforme a resolução da tela realize o procedimento seguinte.

Clique com o botão direito na guia e clique em Personalizar Faixa de Opções, marque a opção Desenvolvedor.

Agora temos a guia Desenvolvedor aparecendo no Excel.

Clique no botão Gravar Macro e clique em OK.

Tudo o que estiver sendo feito à partir deste momento será gravado no VBA do Excel.

Repita a operação que viu antes de realizar o Zoom na seleção e no final clique em Parar Gravação.

Clique na guia Desenvolvedor e no botão Visual Basic, veja na árvore do projeto o Módulo1, clique ali e retire os códigos que são desnecessários.

Agora iremos criar um intervalo nomeado que usaremos no intervalo

Volte ao Excel fechando o editor do VBA.

Selecione o intervalo que deseja dar o zoom, e clique em Fórmulas->Definir Nome e como abaixo coloque em Nome: tela e em Escopo: selecione a planilha atual, não deixe na pasta de trabalho.

Clique em Ok, e repita esta ação para todas as planilhas que deseja dar o zoom, sempre colocando o intervalo que deseja visualizar em cada planilha.

Retorne no VBA e no código abaixo altere o range para "tela". Isso fará com que a seleção e o ajuste ocorra neste intervalo nomeado.

Altere o código conforme abaixo aonde temos então um tratamento de erros para que se não houver o intervalo nomeado em alguma planilha ele passe direto.

E em Activesheet.Range("A1").Select é selecionada a célula A1.

Após isso clique em EstaPastaDeTrabalho e clique duas vezes sobre ela.

Clique em Workbook e selecione o evento SheetActivate, digite o nome do procedimento que criamos anteriormente, lsAjustaTela.

Sub lsAjustaTela()
    On Error GoTo Sair

    ActiveSheet.Range("tela").Select
    ActiveWindow.Zoom = True
    ActiveSheet.Range("A1").Select
    
Sair:
    Exit Sub
End Sub