在Excel VBA中,如果需要查詢Excel窗口的位置以方便用戶的操作,可通過VBA查詢Excel窗口與左邊界的距離和頂端的距離來獲取Excel窗口的位置。Excel2003可通過VBA宏查詢Excel窗口的位置。
查詢Excel窗口的位置的方法:
首先按“Alt+F11”組合鍵,Excel2003打開代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側的代碼窗口中輸入:
Sub Excel_Partner()
Dim myLeft As Double, myTop As Double
myLeft = Application.Left
myTop = Application.Top
MsgBox "Excel窗口的位置:" _
& vbCrLf & "左邊界距離:" & myLeft _
& vbCrLf & "頂端距離:" & myTop, vbInformation
End Sub
按F5運行鍵運行程序,返回當前系統下Excel窗口的位置。