Como aplicar zoom em todas as guias em um tamanho no Excel?

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

Aplique zoom em todas as guias em um tamanho usando Ctrl ou Shift

Amplie todas as guias em um tamanho por VBA

---

Aplique zoom em todas as guias em um tamanho usando Ctrl ou Shift

Para aplicar zoom a todas ou a algumas guias em um tamanho de pasta de trabalho, você pode selecionar as guias da planilha primeiro e, em seguida, aumentá-las.

Segurar Ctrl para selecionar as guias da folha cujos níveis de zoom você deseja alterar em massa e, em seguida, arraste o controle deslizante de zoom. Veja a imagem:

Selecione a primeira guia e segure mudança para selecionar a última guia na barra de guias da planilha e arraste o controle deslizante de zoom para alterar os níveis de zoom.

---

Amplie todas as guias em um tamanho por VBA

Se você deseja usar o código VBA para resolvê-lo, o código a seguir pode ajudá-lo.

1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.

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

VBA: reduza ou amplie todas as guias em 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 F5 para executar, e todos os níveis de zoom das guias da folha foram alterados para a porcentagem especificada em massa.