Question

我可以使用什么VBA命令为所有Excel工作表设置标准缩放级别，这也允许我通过单击来增加/减少10％的缩放级别？

仅供参考：我在Excel中创建两个按钮（放大和缩小），允许用户从文档的标题页调整缩放设置 - 将调整整个工作簿。

谢谢！

Answer 1

此代码未经测试但应该给您提示...将按钮链接到DecreaseZoom和IncreaseZoom子例程。

Public ZoomSetting As Integer

Sub DecreaseZoom  
    If ZoomSetting = 0 Then
        ZoomSetting = 100
    End If
    If ZoomSetting > 10 Then
        ZoomSetting = ZoomSetting - 10
        SetZoom
    End If
End Sub

Sub IncreaseZoom
    If ZoomSetting = 0 Then
        ZoomSetting = 100
    End If
    If ZoomSetting < 400 Then
        ZoomSetting = ZoomSetting + 10
        SetZoom
    End If
End Sub

Sub SetZoom()
    Dim CurrentWS As Worksheet, TempWS As Worksheet
    CurrentWS = ActiveWorksheet
    For Each TempWS In Worksheets
        TempWS.Select
        ActiveWindow.Zoom = ZoomLevel
    Next
    CurrentWS.Select
End Sub

仅供参考，如果您使用选项卡选择工作簿中的所有工作表，则可以设置缩放，它将应用于所有工作表。

Answer 2

我已经测试了这个并且它有效但我仍然需要一个开始缩放级别为75或者其他什么。我该如何调整呢？初始点？ - Eric Walker 10月5日20:44

你可以使用

Public Sub Auto_Open()
    ActiveWindow.zoom = 75
End Sub

Answer 3

您可以使用ActiveWindow.Zoom。

ActiveWindow.Zoom = 70
ActiveWindow.Zoom = 10
ActiveWindow.Zoom = 120
ActiveWindow.Zoom = 110
ActiveWindow.Zoom = 100

Answer 4

使用Activewindow.zoom = activewindow.zoom -10缩小，Activewindow.zoom = activewindow.zoom +10放大。

VBA缩放级别设置

4 个答案: