Excel VBA代码强制某个缩放级别

Question

我在Excel中有一个Validated Dropdown列表,如果缩放小于100则无法读取.我在互联网上检查并确认我无法改变验证列表文本大小的大小,所以我想强制设置100的缩放.

我有这样的代码,如下所示

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveWindow.Zoom = 100
End Sub

这适用于使用缩放小于100的人,但如果人们使用大于100的缩放,它会将缩放限制为100.有没有办法克服这个问题,这与If-Else语句一致.

如果缩放小于100则缩放= 100否则如果缩放大于100则不执行任何操作

谢谢.

Answer 1

If (ActiveWindow.Zoom < 100) Then

    ActiveWindow.Zoom = 100

End If

Answer 2

这是一个可以做同样事情的单线程:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveWindow.Zoom = Application.Max(ActiveWindow.Zoom, 100)
End Sub