¿Qué es la opción Zoom en Excel?
El zoom es una herramienta que nos permite reducir o ampliar la visualización de la hoja seleccionada. Posee una reducción de un 10% hasta una ampliación de 400%.
En esta ocasión vamos a realizar un control del zoom usando el lenguaje VBA.
Para controlar el zoom mediante VBA nos apoyaremos con los formularios. Estos son un método para ingresar datos a nuestras hojas y son de mucha utilidad ya que nos permiten evitar errores en la captura de la información.
Para iniciar deberemos abrir la ventana de Microsoft VBA del libro abierto. Seguiremos con la creación de un formulario:
Click derecho en VBA Project - Insertar - UserForm
Una vez creado el UserForm, añadir las siguientes características:
Daremos doble click al botón “Cambiar” y codificaremos lo siguiente:
Private Sub CommandButton1_Click ()
Numero = TextBox1
If Numero >= 10 and Numero <= 400 Then
ActiveWindow.Zoom = Numero
Else
MsgBox "Elegir un número en el intervalo del 10 - 400"
End If
End Sub
Finalmente creamos un botón en la hoja de cálculo para poder abrir nuestro formulario:
En el botón colocamos el siguiente comando:
UserForm1.Show
Ejemplo 1.
Aplicando lo explicado líneas arriba; Modificar la hoja al 150% de zoom.
Ejemplo 2.
Ahora si se desea realizar un zoom a todas las hojas, debe de aplicar la siguiente codificación en el botón del formulario:
Private Sub CommandButton1_Click ()
Num = TextBox1
If Num >= 10 And Num <= 400 Then
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Hoja.Activate
ActiveWindow.Zoom = Num
Next
Else
MsgBox "Elegir un número en el intervalo del 10 - 400"
End If
End Sub
Ahora ejecute el formulario
Nota: La siguiente macro hará que todas las hojas del libro tomen el valor de Zoom colocado en el cuadro de texto del formulario.