Excel VBA代码强制一定的缩放级别

我在Excel中有一个validation的下拉列表，如果缩放比例小于100，那么这个列表是不可读的。我在网上查了一下，发现我不能改变validation列表文本大小的大小，所以我想强制执行一个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