Excel VBA 代码强制指定缩放级别

Question

我在 Excel 中有一个验证下拉列表，如果缩放小于 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