Hoe zoom ik alle tabbladen in één formaat in Excel?

Standaard hebben de bladen een zoomfactor van 100%, maar u kunt het huidige tabblad naar een bepaald formaat zoomen door de zoomschuifregelaar te slepen. Hoe kunt u echter alle tabbladen in een werkmap tegelijkertijd naar dezelfde grootte zoomen?

Zoom alle tabbladen in één formaat in met Ctrl of Shift

Zoom alle tabbladen in één maat door VBA

---

Zoom alle tabbladen in één formaat in met Ctrl of Shift

Als u alle of enkele tabbladen in één formaat van een werkmap wilt inzoomen, kunt u eerst de bladtabbladen selecteren en vervolgens zoomen.

Houden Ctrl om de bladtabbladen te selecteren waarvan u de zoomniveaus bulksgewijs wilt wijzigen, en versleep vervolgens de zoomschuifregelaar. Zie screenshot:

Selecteer het eerste tabblad en de wachtstand Shift -toets om het laatste tabblad in de werkbladtabbalk te selecteren en sleep vervolgens de zoomschuifregelaar om hun zoomniveaus te wijzigen.

---

Zoom alle tabbladen in één maat door VBA

Als u VBA-code wilt gebruiken om het op te lossen, kan de volgende code u helpen.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, kopieer en plak de code in het lege script.

VBA: verklein of vergroot alle tabbladen in één formaat

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. druk op F5 toets om uit te voeren, en de zoomniveaus van alle bladtabbladen zijn in bulk gewijzigd naar het opgegeven percentage.