怎么設(shè)置ActiveWindow對(duì)象的屬性打開Excel工作簿變大的動(dòng)畫效果

　　在打開Excel工作簿時(shí)，在程序窗口中，工作簿由小變大直至最大，這將獲得獨(dú)特的視覺效果。在Excel中，通過使用VBA設(shè)置ActiveWindow對(duì)象的屬性，可以方便地實(shí)現(xiàn)工作簿變大動(dòng)畫效果。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于設(shè)置ActiveWindow對(duì)象的屬性打開Excel工作簿變大的動(dòng)畫效果，希望對(duì)您有所幫助。

　　設(shè)置ActiveWindow對(duì)象的屬性打開Excel工作簿變大的動(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ò)大，然后由左向右增大到全屏。

猜你喜歡：

1.Excel超實(shí)用小技巧動(dòng)畫教程

2.excel表格多個(gè)工作表連續(xù)頁(yè)碼怎么設(shè)置

3.Excel數(shù)據(jù)透視表動(dòng)態(tài)數(shù)據(jù)怎么制作

4.如何用excel表格做動(dòng)畫

5.excel怎么給多個(gè)工作表同時(shí)錄入相同的數(shù)據(jù)