„ActiveWindow.Zoom“
Naudodami VBA galite pakeisti darbalapio mastelį. Štai kodas, norint pakeisti „ActiveWindow“ mastelį į 50%:
| 1 | „ActiveWindow.Zoom“ = 50 |
Keisti mastelį visuose darbalapiuose
Taip pat galite peržiūrėti visus darbaknygės darbalapius, kad nustatytumėte standartinį mastelį. Ši makrokomanda nustatys visų darbalapių mastelį 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws kaip darbalapisApplication.ScreenUpdating = NetiesaUž kiekvieną ws darbalapiuosews. Aktyvinti„ActiveWindow.Zoom“ = 50KitasApplication.ScreenUpdating = TiesaPabaiga Sub |
Mastelis Mastelis
Ir pagaliau stebuklingai augantis darbalapis. Ši makrokomanda eis per „Sheet1“ mastelio keitimą nuo 10%iki 200%, padidės 10%, pertraukos pertrauka tarp pakeitimų, ir tada bus atkurta 1 lapo pradinė būsena.
| 1234567891011121314151617181920212223242526272829303132333435363738 | „Sub ZoomZoom“ ()Dim x As Integer 'kintamasis ciklui„Dim OriginalZoom As Integer“ kintamasis originaliam priartinimui1 lapas. Aktyvuokite „dirbkime su 1 lapu“OriginalZoom = ActiveWindow.Zoom 'gauti dabartinį mastelį“perjunkite mastelį nuo 10 iki 200 iki 10Kai x = nuo 1 iki 20„ActiveWindow.Zoom“ = x * 10Application.Palauk dabar + TimeValue ("00:00:01")Kitas x"atkurti pradinį priartinimąActiveWindow.Zoom = OriginalZoomPabaiga Sub |
