Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
ZOOM 150x103, Controlar el Zoom en VBA

Controlar el Zoom en VBA

| Sin comentarios

¿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%.

ZOOM, Controlar el Zoom en VBA

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

ZOOM1, Controlar el Zoom en VBA

ZOOM2, Controlar el Zoom en VBA

Una vez creado el UserForm,  añadir las siguientes características:

ZOOM3, Controlar el Zoom en VBA

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:

ZOOM4, Controlar el Zoom en VBA

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.

ZOOM5, Controlar el Zoom en VBA

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

ZOOM6, Controlar el Zoom en VBA

Nota: La siguiente macro hará que todas las hojas del libro tomen el valor de Zoom colocado en el cuadro de texto del formulario.

Controlar el Zoom en VBA

Deja un comentario

Los campos requeridos estan marcados con *.