Jak v aplikaci Excel zvětšit všechny karty v jedné velikosti?

Ve výchozím nastavení jsou listy ve 100% přiblížení, ale aktuální kartu můžete přiblížit na konkrétní velikost podle potřeby přetažením posuvníku zoomu. Jak však můžete všechny karty v sešitu přiblížit na stejnou velikost současně?

Zvětšete všechny karty v jedné velikosti pomocí kláves Ctrl nebo Shift

Zvětšete všechny karty v jedné velikosti pomocí VBA

---

Zvětšete všechny karty v jedné velikosti pomocí kláves Ctrl nebo Shift

Chcete-li zvětšit všechny nebo některé karty v jedné velikosti sešitu, můžete nejprve vybrat karty listu a poté je přiblížit.

Držet Ctrl klávesou vyberte karty listů, jejichž úrovně přiblížení chcete hromadně změnit, a poté přetáhněte jezdec přiblížení. Viz snímek obrazovky:

Vyberte první kartu a blokování směna Klávesou vyberte poslední kartu na panelu karet List a potom přetažením jezdce přiblížení změňte úrovně jejich přiblížení.

---

Zvětšete všechny karty v jedné velikosti pomocí VBA

Chcete-li jej vyřešit pomocí kódu VBA, může vám pomoci následující kód.

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, zkopírujte a vložte kód do prázdného skriptu.

VBA: Zmenšete nebo zvětšete všechny karty ve velikosti

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. lis F5 klíč ke spuštění a úrovně zvětšení všech karet listů byly hromadně změněny na zadané procento.