Jak powiększyć wszystkie karty w jednym rozmiarze w programie Excel?

Domyślnie arkusze są powiększone w 100%, ale możesz powiększyć bieżącą kartę do określonego rozmiaru, zgodnie z potrzebami, przeciągając suwak powiększenia. Jak jednak można jednocześnie powiększyć wszystkie karty w skoroszycie do tego samego rozmiaru?

Powiększ wszystkie karty w jednym rozmiarze, używając Ctrl lub Shift

Powiększ wszystkie karty w jednym rozmiarze według VBA

---

Powiększ wszystkie karty w jednym rozmiarze, używając Ctrl lub Shift

Aby powiększyć wszystkie lub niektóre karty w jednym rozmiarze skoroszytu, możesz najpierw zaznaczyć karty arkuszy, a następnie je powiększyć.

Utrzymać Ctrl , aby zaznaczyć karty arkuszy, których poziomy powiększenia chcesz zmienić zbiorczo, a następnie przeciągnij suwak powiększenia. Zobacz zrzut ekranu:

Wybierz pierwszą kartę i przytrzymaj przesunięcie , aby wybrać ostatnią kartę na pasku kart Arkusza, a następnie przeciągnij suwak powiększenia, aby zmienić poziomy powiększenia.

---

Powiększ wszystkie karty w jednym rozmiarze według VBA

Jeśli chcesz użyć kodu VBA, aby go rozwiązać, poniższy kod może ci pomóc.

1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, skopiuj i wklej kod do pustego skryptu.

VBA: Zmniejsz lub powiększ wszystkie karty w rozmiarze

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. naciśnij F5 do uruchomienia, a poziomy powiększenia wszystkich kart arkuszy zostały zbiorczo zmienione na określony procent.