設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開工作簿變大的動(dòng)畫效果,作為經(jīng)常和辦公軟件打交道的你這些問題是不是經(jīng)常困擾著你,小編今天這篇文章就是幫助你解決設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開工作簿變大的動(dòng)畫效果這個(gè)問題,當(dāng)你再次遇到設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開工作簿變大的動(dòng)畫效果這個(gè)問題的時(shí)候,我相信你絕對(duì)不會(huì)再犯愁了,下面就跟我一起來學(xué)習(xí)一下這個(gè)知識(shí)吧!
在打開Excel工作簿時(shí),在程序窗口中,工作簿由小變大直至最大,這將獲得獨(dú)特的視覺效果。在Excel中,通過使用VBA設(shè)置ActiveWindow對(duì)象的屬性,可以方便地實(shí)現(xiàn)工作簿變大動(dòng)畫效果。本文介紹使用Excel里的VBA設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開工作簿時(shí)工作簿變大動(dòng)畫效果的制作方法。
1、啟動(dòng)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
圖1 在“代碼”窗口中輸入程序代碼
提示
ActiveWindow對(duì)象的WindowState屬性用于設(shè)置窗口的初始狀態(tài),如果其值為xlNormal,則工作簿窗口為正常狀態(tài);如果其值為xlMaximized,則工作簿窗口最大化;如果其值為xlMinized,則工作簿窗口最小化。
ActiveWindow對(duì)象的Top和Left屬性值可以設(shè)置工作簿初始位置;AtiveWindow對(duì)象的Width和Height屬性值可以設(shè)置工作簿窗口的寬度和高度;Application對(duì)象的UseableWidth和UseableHeigth屬性值是應(yīng)用程序窗口區(qū)域中一個(gè)窗口能夠占有的最大高度和寬度。
2、切換到Excel窗口,保存文檔后關(guān)閉文檔。當(dāng)再次打開該文檔時(shí),工作簿窗口將由上向下擴(kuò)大,然后由左向右增大到全屏。