在Excel VBA中,如果需要查詢(xún)Excel窗口的高度和寬度以方便用戶(hù)的操作,可通過(guò)VBA查詢(xún)Excel窗口的高度和寬度。Excel2003可通過(guò)VBA宏查詢(xún)Excel窗口的高度和寬度。
查詢(xún)Excel窗口的高度和寬度的方法:
首先按“Alt+F11”組合鍵,Excel2003打開(kāi)代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側(cè)的代碼窗口中輸入:
Sub Excel_Partner()
Dim myHeight As Double, myWidth As Double
myHeight = Application.Height
myWidth = Application.Width
MsgBox "Excel窗口:" _
& vbCrLf & "高度為:" & myHeight _
& vbCrLf & "寬度為:" & myWidth, vbInformation
End Sub
按F5運(yùn)行鍵運(yùn)行程序,返回當(dāng)前系統(tǒng)下Excel窗口的高度和寬度。