VBA使用ActiveWindow.Zoom调整页面显示百分比

前言

本节会通过VBA实现自动调整Excel页面显示的百分比功能

---

Zoom属性

1.调整当前工作表

示例：调整当前sheet显示比例为90%

Sub AvtivwWindowZoom()  
    ActiveWindow.Zoom = 90
End Sub

2.调整其他工作表

当一个Excel文件存在多张工作表Sheet时，又需要调整他们对应的显示百分比，可参考以下代码（提供两种方式）：

（1）直观可读，适合工作表数量少

调整当前文件中的Sheet1和Sheet2的页面显示调整为110%，完整的代码如下：

Sub AvtivwWindowZoom()
    
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    
    ' 定义工作表对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 设置Sheet1百分比110
    ws1.Activate
    ActiveWindow.Zoom = 110
    
    ' 设置Sheet2百分比110
    ws2.Activate
    ActiveWindow.Zoom = 110
End Sub

（2）循环处理多表，运行快，适合多Sheet

调整当前文件中的所有sheet的页面显示调整为110%，完整的代码如下：

Sub AvtivwWindowZoom()
    
    ' 定义数组用来存放工作表对象
    Dim ws As Worksheet
    Dim CountSH As Integer
    Dim i As Integer
    
    ' 获取该工作簿的sheet个数
    CountSH = ThisWorkbook.Worksheets.Count
    
    ' 循环遍历查询
    For i = 1 To CountSH
        Set ws = ThisWorkbook.Worksheets(i)
        ws.Activate
        ActiveWindow.Zoom = 110
    Next i
    
End Sub