在Excel VBA中,如果需要改變Excel窗口大小以方便用戶的操作,可通過VBA設置窗口的高度和寬度改變Excel窗口大小。Excel2003可通過VBA宏改變Excel窗口大小。
改變Excel窗口大小的方法:
首先按“Alt+F11”組合鍵,Excel2003打開代碼編輯器,單擊“插入”菜單-“模塊”,雙擊插入的模塊,在右側的代碼窗口中輸入:
Sub Excel_Partner()
Dim myWState As Long, myWidth As Double, myHeight As Double
With Application
myWState = .WindowState ‘獲取當前的窗口狀態
.WindowState = xlNormal ‘將窗口設置為一般顯示
myWidth = .Width ‘獲取當前窗口的寬度
myHeight = .Height ‘獲取當前窗口的高度
.Width = myWidth+100 ‘設定窗口的寬度
.Height = 300 ‘設定窗口的高度
If MsgBox("Excel窗口已經改變!" & vbCrLf & "要恢復為原來的狀態嗎?", _
vbQuestion + vbYesNo) = vbNo Then Exit Sub
.Width = myWidth ‘恢復窗口的寬度
.Height = myHeight ‘恢復窗口的高度
.WindowState = myWState ‘恢復窗口的顯示狀態
End With
End Sub
按F5運行鍵運行程序,即可改變Excel窗口大小。