ActiveWindowズームイベントでトリガされたイベント（CTRL +マウスホイールを保持）

Question

ダッシュボードを構築していて、ズームレベルを100%に設定する必要があります。ユーザーがマウスホイールボタンやズームレベルオプションを使用して拡大しようとするたびに、そのイベントを捕捉してズームを100%に戻す必要があります。私はインターネット上のすべての答えを検索し、OnZoomイベントのようなものは存在しないことを発見しました。

• は数ミリ秒ごとと が100％に復元ズームレベルをチェックするためのオプションがありますが、私は気が散るで常にマウスの矢印の上に表示される円 を丸めるのこの原因を、受け入れることはできません。
• ズームコントロールを非表示にすることもできます。これは、ユーザーがCTRL + MouseWheelを使用してズームすることもできます。 クラスモジュールを使用
• はまた、唯一の手動選択ズームレベルで動作し、私が見つけ

solution View > Zoomメニューから[すべての回答は5年以上前の日付、ので、多分その間に誰かが解決策や、この機能を発見されました新しいバージョンのExcelに追加されましたか？

いずれのリードも大歓迎です！

Answer 1

ActiveXコントロールで再生しているときに解決策を見つけました。だからこそ遭遇したすべての人に、以下の回答を見つけてください。

まず、ActiveXコントロールInkPicture controlを挿入します。

ワークシートの可視領域全体にコントロールをサイズ変更します。

ワークシートモジュールにこのコードを貼り付けます。何らかの理由で

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

（誰かが理由を説明することを願って？）、occuresをズームするとき、それはInkPicture_resizeイベントをトリガー！ また、InkPicturevisible propertyをfalseに設定することもできますが、それでも機能します。