VBA – Aumentar e Diminuir o Zoom das Planilhas

ActiveWindow.Zoom

Você pode usar o VBA para alterar o zoom de uma planilha. Aqui está o código para alterar o zoom da ActiveWindow para 50%:

ActiveWindow.Zoom = 50

Alterar o Zoom em Todas as Planilhas

Você também pode percorrer todas as planilhas da pasta de trabalho para definir um zoom padrão. A macro a seguir definirá o zoom de todas as planilhas como 50%:

Sub ZoomTodas()

 Dim ws As Worksheet

 Application.ScreenUpdating = False

 For Each ws In Worksheets
    ws.Activate
    ActiveWindow.Zoom = 50
 Next

 Application.ScreenUpdating = True

End Sub

Zoom – Ajustar Seleção

Em uma planilha, você pode usar Exibir->Zoom->Zoom na Seleção para ajustar automaticamente o zoom a um intervalo selecionado.

Você pode “ajustar seleção” no VBA selecionando o intervalo e definindo Zoom igual a True (Verdadeiro).

Planilha1.Range("A1:F15").Select 'definir o zoom do intervalo

ActiveWindow.Zoom = True

Zoom Zoom

E, finalmente, uma planilha que cresce magicamente. A macro a seguir percorrerá os zooms da Planilha1, indo de 10% a 200%, incrementando 10%, fazendo uma pausa de um segundo entre as alterações e, em seguida, restaurará a Planilha1 de volta ao seu estado original.

Sub ZoomZoom()
Dim x As Integer 'variável para o loop
Dim ZoomOriginal As Integer 'variável para o zoom original

Planilha1.Activate 'vamos trabalhar com a Planilha1

ZoomOriginal = ActiveWindow.Zoom 'obtém o zoom atual

'percorre o zoom de 10 a 200 com passos de 10
 For x = 1 To 20
   ActiveWindow.Zoom = x * 10
   Application.Wait Now + TimeValue("00:00:01")
 Next x
    
'restaura o zoom original
ActiveWindow.Zoom = ZoomOriginal

End Sub