位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

設(shè)置ActiveWindow對象的屬性實(shí)現(xiàn)打開工作簿變大的動畫效果

提問人:周麗平發(fā)布時間:2021-08-26

1、啟動Excel,打開Visual Basic編輯器,在工程資源管理器中雙擊"ThisWorkbook"選項(xiàng)打開“代碼”窗口,輸入程序代碼,如圖1所示。具體程序代碼如下所示:

Private Sub Workbook_Open()

Dim i As Integer

With ActiveWindow

.WindowState=xlNormal '窗口最小化

.Top=1 '設(shè)置窗口位置

.Left=1

.Height=50 '設(shè)置窗口大小

.Width=50

For i=50 To Application.UsableHeight '循環(huán)設(shè)置窗口高度

.Height=i

Next

For i=50 To Application.UsableWidth '循環(huán)設(shè)置窗口寬度

.Width=i

Next

.WindowState=xlMaximized '窗口最大化

End With

End Sub

image.png

圖1 在“代碼”窗口中輸入程序代碼

提示

ActiveWindow對象的WindowState屬性用于設(shè)置窗口的初始狀態(tài),如果其值為xlNormal,則工作簿窗口為正常狀態(tài);如果其值為xlMaximized,則工作簿窗口最大化;如果其值為xlMinized,則工作簿窗口最小化。

ActiveWindow對象的Top和Left屬性值可以設(shè)置工作簿初始位置;AtiveWindow對象的Width和Height屬性值可以設(shè)置工作簿窗口的寬度和高度;Application對象的UseableWidth和UseableHeigth屬性值是應(yīng)用程序窗口區(qū)域中一個窗口能夠占有的最大高度和寬度。

2、切換到Excel窗口,保存文檔后關(guān)閉文檔。當(dāng)再次打開該文檔時,工作簿窗口將由上向下擴(kuò)大,然后由左向右增大到全屏。

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部