526互联

zoom属性

发布时间 2023-07-03 22:43:11作者: iZJ"Qq4577105

PageSetup.Zoom 属性

返回或设置一个 Variant 值，它代表一个数值在 10% 到 400% 之间的百分比，该百分比为 Microsoft Excel 打印工作表时的缩放比例。此属性仅适用于工作表。

zoom属性通常赋一个数值，表缩放比例。

但是也可以将其赋值Boolean型：

如果使用 .Zoom = False，Excel 将根据 .FitToPagesTall 和 .FitToPagesWide的属性值来调整工作表的缩放级别。若此时FitToPagesWide 和 FitToPagesTall 属性值不设置，则窗口将自动调整为合适的缩放级别，以适应窗口大小。

如果使用 .Zoom = True，Excel 将根据设置的缩放级别显示工作表，而忽略.FitToPagesWide 和 .FitToPagesTall 属性。通常我们视为zoom属性为true属于非法，所以不建议给自己找事做。

示例

此示例设置打印 Sheet1 时的缩放比例为 150%。

Worksheets("Sheet1").PageSetup.Zoom = 150

 将活动窗口的缩放级别恢复为默认的自动缩放。

' 将活动窗口的缩放级别恢复为默认的自动缩放
ActiveWindow.Zoom = False

注意：将 .Zoom 设置为 False 并不意味着将缩放级别设置为 0 或关闭窗口的缩放功能。它只是将窗口的缩放级别恢复为默认的自动缩放。

本示例设置 Microsoft Excel 准确按照一页的宽度和高度打印 Sheet1。

With Worksheets("Sheet1").PageSetup 
 .Zoom = False 
 .FitToPagesTall = 1 
 .FitToPagesWide = 1 
End With

注：如果Zoom属性为true，则你设置了FitToPagesWide 和 FitToPagesTall都将无意义

示例：

Sub ZoomExample()
    Dim ws As Worksheet
    Dim zoomLevel As Integer
    
    ' 设置缩放级别为 80%
    zoomLevel = 80
    
    ' 获取活动工作表
    Set ws = ActiveSheet
    
    ' 设置 Zoom 属性为 True，根据指定的缩放级别进行显示
    With ws.PageSetup
        .Zoom = True
        .FitToPagesWide = 1 '将工作表调整为适应一页的宽度
        .FitToPagesTall = 1 '将工作表调整为适应一页的高度
    End With
    
    ' 修改实际的缩放级别
    ActiveWindow.Zoom = zoomLevel
    
    ' 打印预览显示结果
    ws.PrintPreview
End Sub