使用ActiveWindow縮放事件觸發的事件（按住CTRL +鼠標滾輪）

Question

我正在構建儀表板，並且需要將縮放級別設置爲100%。因此，無論何時用戶嘗試使用鼠標滾輪按鈕或縮放級別選項進行縮放，我都需要捕捉該事件並將縮放返回到100%。我在互聯網上搜索了所有答案，發現沒有OnZoom事件。

• 還有就是要檢查縮放級別每隔幾毫秒和 它恢復到100％的選擇，但我不能接受這樣的原因四捨五入圓 出現在鼠標箭頭不停，這是分心。
• 隱藏縮放控制也不是一個選項，因爲用戶仍然可以用CTRL + MouseWheel縮放 。
• 使用類模塊也只在手動選擇縮放級別 從菜單操作View > Zoom solution

所有答案，我發現了超過5年前的過時，所以也許在此期間，有人找到了一個解決方案或此功能在新版本的Excel中添加？

任何鉛都將不勝感激！

Answer 1

在使用ActiveX控件時發現了一個解決方案，因此對於每個遇到此問題的人，請在下面找到答案。

首先，插入名爲InkPicture control的ActiveX控件。

調整整個Worksheet可見區域的控件大小。

在工作表模塊中，粘貼此代碼。

Private Sub InkPicture1_Resize(Left As Long, Top As Long, Right As Long, Bottom As Long) 
ActiveWindow.Zoom = 100 
End Sub 

出於某種原因（希望有人能解釋一下爲什麼嗎？），縮放occures時，它會觸發InkPicture_resize事件！ 您也可以將InkPicture visible property設置爲false，它仍然可以工作。