Wie kann man in Excel alle Tabs auf eine Größe zoomen?

Standardmäßig sind die Arbeitsblätter auf 100% Zoom eingestellt, aber Sie können den aktuellen Tab auf eine bestimmte Größe zoomen, indem Sie den Zoom-Schieberegler ziehen. Wie können Sie jedoch alle Tabs in einer Arbeitsmappe gleichzeitig auf dieselbe Größe zoomen?

Alle Tabs auf eine Größe zoomen, indem Sie Strg oder Umschalt verwenden

Alle Tabs auf eine Größe mit VBA zoomen

Alle Tabs auf eine Größe zoomen, indem Sie Strg oder Umschalt verwenden

Um alle oder einige Tabs in einer Arbeitsmappe auf eine Größe zu zoomen, können Sie zuerst die Blattregisterkarten auswählen und dann zoomen.

Halten Sie Strg gedrückt, um die Blattregisterkarten auszuwählen, deren Zoomstufen Sie im großen Stil ändern möchten, und ziehen Sie dann den Zoom-Schieberegler. Siehe Screenshot:

Wählen Sie die erste Registerkarte aus und halten Sie Umschalt gedrückt, um die letzte Registerkarte in der Blattregisterleiste auszuwählen, und ziehen Sie dann den Zoom-Schieberegler, um ihre Zoomstufen zu ändern.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Alle Tabs auf eine Größe mit VBA zoomen

Wenn Sie VBA-Code verwenden möchten, um das Problem zu lösen, kann Ihnen der folgende Code helfen.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, kopieren und fügen Sie den Code in das leere Skript ein.

VBA: Alle Tabs auf eine Größe verkleinern oder vergrößern

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. Drücken Sie die Taste F5, um den Code auszuführen, und alle Blattregisterkarten-Zoomstufen wurden im großen Stil auf den angegebenen Prozentsatz geändert.