站長資訊網
        最全最豐富的資訊網站

        設置ActiveWindow對象的屬性實現打開工作簿變大的動畫效果

        設置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

        設置ActiveWindow對象的屬性實現打開工作簿變大的動畫效果

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

        提示

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

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

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

        贊(0)
        分享到: 更多 (0)
        網站地圖   滬ICP備18035694號-2    滬公網安備31011702889846號
        主站蜘蛛池模板: 精品久久国产一区二区三区香蕉| 欧美精品人人做人人爱视频| 国产乱码伦精品一区二区三区麻豆 | 精品无码人妻久久久久久| 国产AV国片精品有毛| 亚洲国产精品无码中文字| 国产精品青草视频免费播放| 久久国产免费观看精品| 国产精品vⅰdeoxxxx国产| 骚片AV蜜桃精品一区| 亚洲精品高清一二区久久| 精品久久久久久无码国产| 国产福利电影一区二区三区,亚洲国模精品一区 | 国产精品欧美亚洲韩国日本| 久久夜色精品国产噜噜噜亚洲AV| 香蕉依依精品视频在线播放| 久久精品国产精品亜洲毛片| 国产精品日韩欧美久久综合| 99久久婷婷国产综合精品草原| 久久精品国产福利国产秒| 国产精品久久久久久久久| 91精品国产9l久久久久| 97久久精品无码一区二区天美 | 亚洲精品无码久久久影院相关影片| 日本精品久久久久久久久免费| 国产精品免费在线播放| 国产精品免费久久久久影院 | 91久久精品国产91性色也| 欧美日韩精品一区二区三区| 国产精品福利一区二区| 2048亚洲精品国产| 国内精品久久久久影院免费| 98视频精品全部国产| 精品在线免费观看| 热99re久久国超精品首页| 欧美日激情日韩精品| 国产精品爱搞视频网站| 久久无码人妻精品一区二区三区 | 国产成人精品日本亚洲专| 精品久久香蕉国产线看观看亚洲| 精品久久久久久久|