Увеличаване и намаляване на работните листове - Примери за VBA код

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
wave wave wave wave wave