Satura rādītājs
ActiveWindow.Zoom
Varat izmantot VBA, lai mainītu darblapas tālummaiņu. Šeit ir kods, lai mainītu ActiveWindow tālummaiņu uz 50%:
| 1 | ActiveWindow.Zoom = 50 |
Mainīt tālummaiņu visās darblapās
Varat arī apskatīt visas darbgrāmatas darblapas, lai iestatītu standarta tālummaiņu. Šis makro iestatīs tālummaiņu visām darblapām uz 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws kā darblapaApplication.ScreenUpdating = NepareiziPar katru ws darblapāsws. AktivizētActiveWindow.Zoom = 50NākamaisApplication.ScreenUpdating = PatiessBeigu apakš |
Tālummaiņa Tālummaiņa
Un visbeidzot maģiski augoša darblapa. Tālāk norādītais makro pārvietosies lapas 1 tālummaiņās, pārejot no 10%uz 200%, palielinoties par 10%, apturot sekundi starp izmaiņām, un pēc tam tas atjaunos 1. lapu atpakaļ sākotnējā stāvoklī.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'mainīgais cilpaiDim OriginalZoom As Integer mainīgais sākotnējam tālummaiņam1. lapa. Aktivizējiet “strādāsim ar lapu 1OriginalZoom = ActiveWindow.Zoom 'iegūst pašreizējo tālummaiņu'veiciet tālummaiņu no 10 līdz 200 x 10X = 1 līdz 20ActiveWindow.Zoom = x * 10Application.Gaidiet tūlīt + TimeValue ("00:00:01")Nākamais x'atjaunot sākotnējo tālummaiņuActiveWindow.Zoom = OriginalZoomBeigu apakš |
