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.

ajustar resolução de tela 1

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

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

  1. Selecione o intervalo que queremos que seja exibido, selecionando no caso o dashboard.
  2. 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.
ajustar resolução de tela 2

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.

ajustar resolução de tela 3

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.

ajustar resolução de tela 4

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.

ajustar resolução de tela 5

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.

ajustar resolução de tela 6

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.

ajustar resolução de tela 7

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
ajustar resolução de tela 8

Este evento é disparado no momento em que uma planilha é selecionada.

Ao clicar é chamado o procedimento lsAjustaTela que realizará o ajuste da visualização da planilha conforme a resolução do monitor.

Download Arquivo Ajustar a Resolução de Tela Automática no Excel

Clique no botão abaixo para realizar o  download do arquivo de exemplo:

Baixe a planilha

Curso Excel Completo - Do Básico ao VBA

Quer aprender Excel do Básico, passando pela Avançado e chegando no VBA? Clique na imagem abaixo:


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel