ActiveWindow.Zoom
Можете да използвате VBA, за да промените Zoom на работен лист. Ето кода за промяна на мащаба на ActiveWindow на 50%:
1 | ActiveWindow.Zoom = 50 |
Променете мащабирането на всички работни листове
Можете също така да прегледате всички работни листове във вашата работна книга, за да зададете стандартно увеличение. Следният макрос ще зададе Zoom за всички работни листове на 50%:
123456789101112131415161718192021 | Sub ZoomAll ()Затъмнете като работен листApplication.ScreenUpdating = FalseЗа всеки ws в работни листовеws.АктивирайтеActiveWindow.Zoom = 50СледващияApplication.ScreenUpdating = ВярноEnd Sub |
Zoom Zoom
И накрая вълшебно нарастващ работен лист. Следващият макрос ще премине през мащабирането за Sheet1, като ще премине от 10%до 200%, увеличавайки се с 10%, като направи пауза между промените, след което ще възстанови Sheet1 обратно в първоначалното му състояние.
1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'променлива за цикълDim OriginalZoom As Integer 'променлива за оригинално увеличениеSheet 1. Активирайте „нека работим с sheet1OriginalZoom = ActiveWindow.Zoom 'вземете текущо увеличение'цикъл през увеличение 10 до 200 на 10За x = 1 до 20ActiveWindow.Zoom = x * 10Приложение. Изчакайте сега + TimeValue ("00:00:01")Следващ x'възстановяване на оригиналното увеличениеActiveWindow.Zoom = OriginalZoomEnd Sub |