Sub testWindow()
'测试Excel应用程序窗口状态
MsgBox "应用程序窗口将最大化"
Application.WindowState = xlMaximized
Call testWindowState
MsgBox "应用程序窗口将恢复正常"
Application.WindowState = xlNormal
MsgBox "应用程序窗口已恢复正常"
'测试活动工作簿窗口状态
MsgBox "当前活动工作簿窗口将最小化"
ActiveWindow.WindowState = xlMinimized
Call testWindowState
MsgBox "当前活动工作簿窗口将最大化"
ActiveWindow.WindowState = xlMaximized
Call testWindowState
MsgBox "当前活动工作簿窗口将恢复正常"
ActiveWindow.WindowState = xlNormal
Call testWindowState
MsgBox "应用程序窗口将最小化"
Application.WindowState = xlMinimized
Call testWindowState
End Sub
‘*********************************************************
Sub testWindowState()
Select Case Application.WindowState
Case xlMaximized: MsgBox "应用程序窗口已最大化"
Case xlMinimized: MsgBox "应用程序窗口已最小化"
Case xlNormal:
Select Case ActiveWindow.WindowState
Case xlMaximized: MsgBox "当前活动工作簿窗口已最大化"
Case xlMinimized: MsgBox "当前活动工作簿窗口已最小化"
Case xlNormal: MsgBox "当前活动工作簿窗口已恢复正常"
End Select
End Select
End Sub
示例说明：本示例有两个程序，其中testWindow()是主程序，调用子程序textWindowState()，演示了应
dowState()，演示了应用程序窗口和工作簿窗口的不同状态。

当前活动窗口一般代表当前活动工作簿窗口，读者可以
工作簿窗口，读者可以在VBE编辑器中按F8键逐语句运行testWindow()程序，观察Excel应用程序及工作簿窗口的不
程序及工作簿窗口的不同状态。

此外，在子程序中，还运用了嵌套的Select Case结构。