ActiveWindow.Zoom
Bạn có thể sử dụng VBA để thay đổi Thu phóng của trang tính. Đây là mã để thay đổi Thu phóng của ActiveWindow thành 50%:
| 1 | ActiveWindow.Zoom = 50 |
Thay đổi thu phóng trên tất cả các Trang tính
Bạn cũng có thể lặp lại tất cả các trang tính trong sổ làm việc của mình để đặt một Thu phóng tiêu chuẩn. Macro sau sẽ đặt Thu phóng cho tất cả các trang tính thành 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws As WorksheetApplication.ScreenUpdating = SaiĐối với mỗi ws trong Worksheetsws.ActivateActiveWindow.Zoom = 50Kế tiếpApplication.ScreenUpdating = TrueKết thúc Sub |
Zoom Zoom
Và cuối cùng là một bảng tính đang phát triển một cách kỳ diệu. Macro sau sẽ lặp lại các lần thu phóng cho Sheet1, đi từ 10% đến 200%, tăng 10%, tạm dừng một giây giữa các thay đổi và sau đó nó sẽ khôi phục Sheet1 trở lại trạng thái ban đầu.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'biến cho vòng lặpBiến Dim OriginalZoom As Integer 'để thu phóng ban đầuSheet1.Activate 'hãy làm việc với sheet1OriginalZoom = ActiveWindow.Zoom 'có được mức thu phóng hiện tại'lặp qua thu phóng 10 đến 200 x 10Đối với x = 1 đến 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Tiếp theo x'khôi phục thu phóng ban đầuActiveWindow.Zoom = OriginalZoomKết thúc Sub |
