No.1

Excel窗體大小是可以任意設(shè)置的，無(wú)論用鼠標(biāo)操作還是用代碼，完全可以實(shí)現(xiàn)大小控制。

本節(jié)介紹一下怎么對(duì)Excel窗體大小改變和縮放操作。

要實(shí)現(xiàn)這些功能就必須用代碼，窗體大小設(shè)定的代碼為WindowState屬性。

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

分別為：

xlMaximized 最大化

xlMinimized 最小化

xlNormal 常規(guī)

其實(shí)，這三個(gè)常量代表了窗口中右上角的三個(gè)按鈕，這個(gè)沒(méi)什么難度理解。

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

如圖示例中可以實(shí)現(xiàn)窗體的任意大小修改，其中表格里顯示了窗體的長(zhǎng)寬設(shè)置，當(dāng)然，也可以通過(guò)調(diào)節(jié)按鈕自由設(shè)置。

實(shí)現(xiàn)這個(gè)方法的代碼為：Application.Width和Application.Height

很顯然一個(gè)代碼窗體的寬度一個(gè)代表窗體的高度，分別對(duì)此進(jìn)行賦值即可。

但有一點(diǎn)要注意：

要實(shí)現(xiàn)對(duì)此兩個(gè)屬性賦值，首先要設(shè)置Application.WindowState屬性為正常模式（xlNormal）或最小模式（xlMinimized），不然的話出現(xiàn)報(bào)錯(cuò)，也就是不能設(shè)置長(zhǎng)寬屬性。

No.2

代碼

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

如上代碼實(shí)現(xiàn)對(duì)窗體長(zhǎng)設(shè)置為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

上述代碼為本示例列表框單擊事件，同樣獲取列表框內(nèi)容進(jìn)行賦值設(shè)置。

No.3

窗體縮放指表格大小縮放，是個(gè)比例值，窗體縮放并不會(huì)真正改變字體大小，只是對(duì)表格進(jìn)行了一個(gè)放大顯示，有利于對(duì)表格數(shù)據(jù)查看檢索操作。

比例縮放使用如下屬性：

Window.Zoom

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

設(shè)置方法：

Window.Zoom=110 '放大110%

總結(jié)：

Application屬性：.WindowState .Height .Width 三個(gè)屬性實(shí)現(xiàn)窗體大小改變。

Window屬性：Zoom實(shí)現(xiàn)窗體縮放改變。

歡迎關(guān)注、收藏