| |
ごく単純にやるならこれ↓をThisWorkbookに貼る。
Private WithEvents myCommandBars As CommandBars
Private z As Variant
Private Sub myCommandBars_OnUpdate()
If ActiveWindow.Zoom <> z Then
MsgBox "Zoom Changed:" & ActiveWindow.Zoom
z = ActiveWindow.Zoom
End If
End Sub
Private Sub Workbook_Open()
z = ActiveWindow.Zoom
Set myCommandBars = Application.CommandBars
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
MsgBox "Window Resized:" & Wn.Caption
End Sub
ホイールには対応してないのであくまでも簡易的なもの。
タイマーなり何なりを使うよりは楽でしょ？
でもこんなんやるよりは
> Zoom率が変わっても支障のないコードを模索するのがラクかも知れません。
↑の方がいいでしょ。
|
|
774
- 12/1/27(金) 10:22 -
