站長資訊網設置ActiveWindow對象的屬性實現打開工作簿變大的動畫效果，作為經常和辦公軟件打交道的你這些問題是不是經常困擾著你，小編今天這篇文章就是幫助你解決設置ActiveWindow對象的屬性實現打開工作簿變大的動畫效果這個問題，當你再次遇到設置ActiveWindow對象的屬性實現打開工作簿變大的動畫效果這個問題的時候，我相信你絕對不會再犯愁了，下面就跟我一起來學習一下這個知識吧！
在打開Excel工作簿時，在程序窗口中，工作簿由小變大直至最大，這將獲得獨特的視覺效果。在Excel中，通過使用VBA設置ActiveWindow對象的屬性，可以方便地實現工作簿變大動畫效果。本文介紹使用Excel里的VBA設置ActiveWindow對象的屬性實現打開工作簿時工作簿變大動畫效果的制作方法。
1、啟動Excel，打開Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項打開“代碼”窗口，輸入程序代碼，如圖1所示。具體程序代碼如下所示：
Private Sub Workbook_Open()
Dim i As Integer
With ActiveWindow
.WindowState=xlNormal '窗口最小化
.Top=1 '設置窗口位置
.Left=1
.Height=50 '設置窗口大小
.Width=50
For i=50 To Application.UsableHeight '循環設置窗口高度
.Height=i
Next
For i=50 To Application.UsableWidth '循環設置窗口寬度
.Width=i
Next
.WindowState=xlMaximized '窗口最大化
End With
End Sub
圖1 在“代碼”窗口中輸入程序代碼
提示
ActiveWindow對象的WindowState屬性用于設置窗口的初始狀態，如果其值為xlNormal，則工作簿窗口為正常狀態;如果其值為xlMaximized，則工作簿窗口最大化;如果其值為xlMinized，則工作簿窗口最小化。
ActiveWindow對象的Top和Left屬性值可以設置工作簿初始位置;AtiveWindow對象的Width和Height屬性值可以設置工作簿窗口的寬度和高度;Application對象的UseableWidth和UseableHeigth屬性值是應用程序窗口區域中一個窗口能夠占有的最大高度和寬度。
2、切換到Excel窗口，保存文檔后關閉文檔。當再次打開該文檔時，工作簿窗口將由上向下擴大，然后由左向右增大到全屏。
