¿Cómo ampliar todas las pestañas a un mismo tamaño en Excel?

Por defecto, las hojas están ampliadas al 100%, pero puedes ajustar el zoom de la pestaña actual al tamaño que necesites arrastrando el control deslizante de zoom. Sin embargo, ¿cómo puedes ajustar el zoom de todas las pestañas de un libro de trabajo al mismo tamaño al mismo tiempo?

Ampliar todas las pestañas a un mismo tamaño usando Ctrl o Shift

Ampliar todas las pestañas a un mismo tamaño mediante VBA

Ampliar todas las pestañas a un mismo tamaño usando Ctrl o Shift

Para ampliar todas o algunas pestañas a un mismo tamaño en un libro de trabajo, primero puedes seleccionar las pestañas de las hojas y luego ajustar su zoom.

Mantén presionada la tecla Ctrl para seleccionar las pestañas de las hojas cuyos niveles de zoom deseas cambiar en bloque, y luego arrastra el control deslizante de zoom. Ver captura de pantalla:

Selecciona la primera pestaña y luego mantén presionada la tecla Shift para seleccionar la última pestaña en la barra de pestañas de la hoja, luego arrastra el control deslizante de zoom para cambiar sus niveles de zoom.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Ampliar todas las pestañas a un mismo tamaño mediante VBA

Si deseas usar código VBA para resolverlo, el siguiente código puede ayudarte.

1. Presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el código en el script en blanco.

VBA: Reducir o ampliar todas las pestañas a un tamaño

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. Presiona la tecla F5 para ejecutar, y los niveles de zoom de todas las pestañas de las hojas se habrán cambiado al porcentaje especificado en bloque.