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
标签:FitToPagesWide,缩放,FitToPagesTall,Zoom,zoom,级别,属性 From: https://www.cnblogs.com/YYZYCS/p/17524021.html