VBA – Ampliar y Reducir Vista/Tamaño de Hojas de Cálculo

ActiveWindow.Zoom

Puede utilizar VBA para cambiar el Zoom de una hoja de cálculo. Aquí está el código para cambiar el Zoom de la ActiveWindow a 50%:

ActiveWindow.Zoom = 50

Cambiar el Zoom en Todas las Hojas de Trabajo

También puede recorrer todas las hojas de trabajo de su libro para establecer un Zoom estándar. La siguiente Macro establecerá el Zoom para todas las hojas de trabajo al 50%:

Sub ZoomAll()

  Dim ws As Worksheet

  Application.ScreenUpdating = False

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

  Application.ScreenUpdating = True

End Sub

Zoom Zoom

Y por último, una hoja de cálculo que crece mágicamente. La siguiente macro hará un bucle a través de los Zooms para la Hoja1, yendo del 10% al 200%, incrementando en un 10%, haciendo una pausa de un segundo entre los cambios, y luego restaurará la Hoja1 a su estado original.

Sub ZoomZoom()
    Dim x As Integer 'variable para el bucle
    Dim OriginalZoom As Integer 'variable para el zoom original
    
    Hoja1.Activate 'trabajemos con la hoja1
    
    OriginalZoom = ActiveWindow.Zoom 'obtener zoom actual
    
    'bucle a través de zoom 10 a 200 por 10
    For x = 1 To 20
        ActiveWindow.Zoom = x * 10
        Application.Wait Now + TimeValue("00:00:01")
    Next x
        
    'restaurar zoom original
    ActiveWindow.Zoom = OriginalZoom

End Sub