No.1

Excel窗體大小是可以任意設置的，無論用鼠標操作還是用代碼，完全可以實現大小控制。

本節介紹一下怎么對Excel窗體大小改變和縮放操作。

要實現這些功能就必須用代碼，窗體大小設定的代碼為WindowState屬性。

WindowState是Application對象下的屬性，如下圖所示：有三個常量可選擇。

分別為：

xlMaximized 最大化

xlMinimized 最小化

xlNormal 常規

其實，這三個常量代表了窗口中右上角的三個按鈕，這個沒什么難度理解。

下面介紹一下如何自定義窗口的大小。

如圖示例中可以實現窗體的任意大小修改，其中表格里顯示了窗體的長寬設置，當然，也可以通過調節按鈕自由設置。

實現這個方法的代碼為：Application.Width和Application.Height

很顯然一個代碼窗體的寬度一個代表窗體的高度，分別對此進行賦值即可。

但有一點要注意：

要實現對此兩個屬性賦值，首先要設置Application.WindowState屬性為正常模式（xlNormal）或最小模式（xlMinimized），不然的話出現報錯，也就是不能設置長寬屬性。

No.2

代碼

Private Sub CommandButton1_Click() With Application .WindowState = xlNormal'設置窗體常規模式 .Top = 1'上邊距位置 .Left = 1'左邊距 .Height = 450'高 .Width = 600'寬 End With End Sub

如上代碼實現對窗體長設置為600，高450。

Private Sub ListBox1_Click() On Error Resume Next Dim w, h h = ListBox1.List(ListBox1.ListIndex, 0) w = ListBox1.List(ListBox1.ListIndex, 1) With Application .WindowState = xlNormal .Height = VBA.CDbl(h) .Width = VBA.CDbl(w) End With End Sub

上述代碼為本示例列表框單擊事件，同樣獲取列表框內容進行賦值設置。

No.3

窗體縮放指表格大小縮放，是個比例值，窗體縮放并不會真正改變字體大小，只是對表格進行了一個放大顯示，有利于對表格數據查看檢索操作。

比例縮放使用如下屬性：

Window.Zoom

是Window對象下的屬性，值類型為 Variant 值，可返回可讀寫。表示窗口顯示大小，以百分比形式表示。

設置方法：

Window.Zoom=110 '放大110%

總結：

Application屬性：.WindowState .Height .Width 三個屬性實現窗體大小改變。

Window屬性：Zoom實現窗體縮放改變。

歡迎關注、收藏