在Excel VBA中,如果需要查詢Excel子窗口的最大高度和寬度以方便用戶的操作,可通過VBA查詢Excel子窗口的最大高度和寬度。Excel2003可通過VBA宏查詢Excel子窗口的最大高度和寬度。
查詢Excel子窗口的最大高度和寬度的方法:
首先按“Alt+F11”組合鍵,Excel2003打開代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側的代碼窗口中輸入:
Sub Excel_Partner()
Dim myMaxHeight As Double, myMaxWidth As Double
myMaxHeight = Application.UsableHeight
myMaxWidth = Application.UsableWidth
MsgBox "Excel子窗口:" _
& vbCrLf & "最大高度為:" & myMaxHeight _
& vbCrLf & "最大寬度為:" & myMaxWidth, vbInformation
End Sub
按F5運行鍵運行程序,返回當前系統下Excel子窗口的最大高度和寬度。