如何設定Excel窗體大小，縮放比例，教你這個操作，立即收藏

2021-06-09 10:00:13

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 WithEnd Sub

如上程式碼實現對窗體長設定為600，高450。

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

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

No.3

窗體縮放指表格大小縮放，是個比例值，窗體縮放並不會真正改變字型大小，只是對錶格進行了一個放大顯示，有利於對錶格資料檢視檢索操作。

比例縮放使用如下屬性：

Window.Zoom

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

設定方法：

Window.Zoom=110 '放大110%

總結：

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

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

歡迎關注、收藏