Sub testActiveWindowSize()
MsgBox "当前窗口可用区域的高度为:" & ActiveWindow.UsableHeight
MsgBox "当前窗口的高度为:" & ActiveWindow.Height
MsgBox "当前窗口可用区域的宽度为:" & ActiveWindow.UsableWidth
MsgBox "当前窗口的宽度为:" & ActiveWindow.Width
End Sub