Come ingrandire tutte le schede alla stessa dimensione in Excel?

Di default, i fogli sono impostati a un livello di zoom del 100%, ma puoi ingrandire la scheda corrente fino a una dimensione specifica trascinando il cursore di zoom. Tuttavia, come puoi ingrandire tutte le schede di una cartella di lavoro alla stessa dimensione contemporaneamente?

Ingrandisci tutte le schede alla stessa dimensione utilizzando Ctrl o Shift

Ingrandisci tutte le schede alla stessa dimensione con VBA

Ingrandisci tutte le schede alla stessa dimensione utilizzando Ctrl o Shift

Per ingrandire tutte o alcune schede di una cartella di lavoro alla stessa dimensione, puoi prima selezionare le schede dei fogli e poi ingrandirle.

Tieni premuto Ctrl per selezionare le schede dei fogli di cui desideri cambiare i livelli di zoom in blocco, quindi trascina il cursore di zoom. Vedi screenshot:

Seleziona la prima scheda e tieni premuto Shift per selezionare l'ultima scheda nella barra delle schede, quindi trascina il cursore di zoom per modificare i loro livelli di zoom.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Ingrandisci tutte le schede alla stessa dimensione con VBA

Se vuoi usare il codice VBA per risolverlo, il seguente codice può aiutarti.

1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, copia e incolla il codice nello script vuoto.

VBA: Riduci o ingrandisci tutte le schede a una determinata dimensione

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. Premi il tasto F5 per eseguire, e tutti i livelli di zoom delle schede dei fogli verranno cambiati in blocco alla percentuale specificata.