Sisällysluettelo
ActiveWindow.Zoom
VBA: n avulla voit muuttaa laskentataulukon zoomausta. Tässä on koodi, jolla voit muuttaa ActiveWindowin zoomauksen 50%: ksi:
| 1 | ActiveWindow.Zoom = 50 |
Muuta zoomausta kaikissa laskentataulukoissa
Voit myös selata kaikkia työkirjasi laskentataulukoita asettaaksesi tavallisen zoomauksen. Seuraava makro asettaa kaikkien laskentataulukoiden zoomaukseksi 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws laskentataulukkonaApplication.ScreenUpdating = VääräJokaiselle viikolle laskentataulukoissaws. aktivoiActiveWindow.Zoom = 50SeuraavaApplication.ScreenUpdating = TottaEnd Sub |
Zoom Zoom
Ja lopuksi maagisesti kasvava laskentataulukko. Seuraava makro kiertää taulukon 1 zoomauksia 10%: sta 200%: iin, kasvaa 10%, pysäyttää sekunnin muutosten välillä ja palauttaa sitten arkin 1 alkuperäiseen tilaansa.
| 1234567891011121314151617181920212223242526272829303132333435363738 | ZoomZoom ()Dim x As Integer 'muuttuja silmukalleHimmennä OriginalZoom kokonaislukuna '-muuttuja alkuperäiseen zoomaukseenTaulukko 1.Aktivoi 'työskennellään arkin 1 kanssaOriginalZoom = ActiveWindow.Zoom 'Hae nykyinen zoomaus'kierrä zoomausta 10-200 x 10X = 1 - 20ActiveWindow.Zoom = x * 10Application.Odota nyt + TimeValue ("00:00:01")Seuraava x'palauta alkuperäinen zoomausActiveWindow.Zoom = OriginalZoomEnd Sub |
