Como ajustar todas as abas para o mesmo tamanho no Excel?

Por padrão, as planilhas estão com zoom de 100%, mas você pode ajustar a aba atual para um tamanho específico conforme necessário, arrastando o controle deslizante de zoom. No entanto, como ajustar todas as abas de uma pasta de trabalho para o mesmo tamanho ao mesmo tempo?

Ajustar todas as abas para o mesmo tamanho usando Ctrl ou Shift

Ajustar todas as abas para o mesmo tamanho usando VBA

Ajustar todas as abas para o mesmo tamanho usando Ctrl ou Shift

Para ajustar todas ou algumas abas para o mesmo tamanho em uma pasta de trabalho, você pode selecionar as guias das planilhas primeiro e depois ajustá-las.

Pressione Ctrl para selecionar as guias das planilhas cujos níveis de zoom deseja alterar em massa e, em seguida, arraste o controle deslizante de zoom. Veja a captura de tela:

Selecione a primeira aba e mantenha pressionado Shift para selecionar a última aba na barra de guias da planilha e, em seguida, arraste o controle deslizante de zoom para alterar os níveis de zoom delas.

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Ajustar todas as abas para o mesmo tamanho usando VBA

Se você quiser usar código VBA para resolver isso, o seguinte código pode ajudá-lo.

1. Pressione Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, copie e cole o código no script em branco.

VBA: Reduzir ou aumentar todas as abas para um tamanho

Sub DbZoom()
'UpdatebyExtendoffice20171215
    Dim I As Long
    Dim xActSheet As Worksheet
    Set xActSheet = ActiveSheet
    For I = 1 To ThisWorkbook.Sheets.Count
        Sheets(I).Activate
        ActiveWindow.Zoom = 150
    Next
    xActSheet.Select
End Sub

3. Pressione a tecla F5 para executar, e todos os níveis de zoom das guias de planilha serão alterados para a porcentagem especificada em massa.