Lang L: none (table-of-contents)
ActiveWindow.Zoom
Töölehe suumi muutmiseks saate kasutada VBA -d. Siin on kood ActiveWindow suumi muutmiseks 50%-ni:
| 1 | ActiveWindow.Zoom = 50 |
Muuda suumi kõikidel töölehtedel
Standardse suumi määramiseks saate ka kõiki töövihiku töölehti sirvida. Järgmine makro määrab kõigi töölehtede suumiks 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws töölehenaApplication.ScreenUpdating = ValeIga ws töölehtedelws. AktiveeriActiveWindow.Zoom = 50EdasiApplication.ScreenUpdating = TõsiEnd Sub |
Suum Zoom
Ja lõpuks maagiliselt kasvav tööleht. Järgmine makro liigub lehe 1 suumimisel läbi 10%-lt 200%-ni, suureneb 10%, peatab muudatuste vahel sekundi ja seejärel taastab lehe 1 oma algsesse olekusse.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'silmuse muutujaDim OriginalZoom As Integer 'muutuja originaalse suumi jaoksLeht 1. Aktiveerige "töötame lehega 1"OriginalZoom = ActiveWindow.Zoom 'saate praeguse suumi'vaadake suumi 10 kuni 200 x 10X = 1 kuni 20ActiveWindow.Zoom = x * 10Application.Oota kohe + TimeValue ("00:00:01")Järgmine x'taastada algne suumActiveWindow.Zoom = OriginalZoomEnd Sub |
