在Excel VBA中,如果需要查詢Excel窗口的狀態以方便用戶的操作,可通過VBA查詢Excel窗口的狀態。Excel2003可通過VBA宏查詢Excel窗口的狀態。
查詢Excel窗口的狀態的方法:
首先按“Alt+F11”組合鍵,Excel2003打開代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側的代碼窗口中輸入:
Sub Excel_Partner()
Dim myState As String
myState = Application.WindowState
If myState = xlMaximized Then
MsgBox "Excel窗口最大化", vbInformation
ElseIf myState = xlMinimized Then
MsgBox "Excel窗口最小化", vbInformation
ElseIf myState = xlNormal Then
MsgBox "Excel窗口正常顯示", vbInformation
End If
End Sub
按F5運行鍵運行程序,返回當前系統下Excel窗口的狀態。