站長(zhǎng)資訊網(wǎng)
        最全最豐富的資訊網(wǎng)站

        設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿變大的動(dòng)畫(huà)效果

        設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿變大的動(dòng)畫(huà)效果,作為經(jīng)常和辦公軟件打交道的你這些問(wèn)題是不是經(jīng)常困擾著你,小編今天這篇文章就是幫助你解決設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿變大的動(dòng)畫(huà)效果這個(gè)問(wèn)題,當(dāng)你再次遇到設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿變大的動(dòng)畫(huà)效果這個(gè)問(wèn)題的時(shí)候,我相信你絕對(duì)不會(huì)再犯愁了,下面就跟我一起來(lái)學(xué)習(xí)一下這個(gè)知識(shí)吧!

        在打開(kāi)Excel工作簿時(shí),在程序窗口中,工作簿由小變大直至最大,這將獲得獨(dú)特的視覺(jué)效果。在Excel中,通過(guò)使用VBA設(shè)置ActiveWindow對(duì)象的屬性,可以方便地實(shí)現(xiàn)工作簿變大動(dòng)畫(huà)效果。本文介紹使用Excel里的VBA設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿時(shí)工作簿變大動(dòng)畫(huà)效果的制作方法。

        1、啟動(dòng)Excel,打開(kāi)Visual Basic編輯器,在工程資源管理器中雙擊"ThisWorkbook"選項(xiàng)打開(kāi)“代碼”窗口,輸入程序代碼,如圖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

        設(shè)置ActiveWindow對(duì)象的屬性實(shí)現(xiàn)打開(kāi)工作簿變大的動(dòng)畫(huà)效果

        圖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)再次打開(kāi)該文檔時(shí),工作簿窗口將由上向下擴(kuò)大,然后由左向右增大到全屏。

        贊(0)
        分享到: 更多 (0)
        網(wǎng)站地圖   滬ICP備18035694號(hào)-2    滬公網(wǎng)安備31011702889846號(hào)
        主站蜘蛛池模板: 少妇人妻偷人精品无码视频| 人妻少妇精品中文字幕av蜜桃| 午夜精品一区二区三区在线观看| 精品卡一卡二卡乱码高清| 国产午夜亚洲精品理论片不卡| 精品国精品国产自在久国产应用| 欧美日韩国产精品系列| 自怕偷自怕亚洲精品| 99久久99这里只有免费的精品| 日韩人妻无码精品一专区| 无码国内精品久久人妻麻豆按摩 | 人妻少妇精品视中文字幕国语 | 黑巨人与欧美精品一区| 国产香蕉精品视频在| 国产一精品一AV一免费| 亚洲欧洲精品无码AV| 久夜色精品国产一区二区三区| 99久久精品这里只有精品| 久久se精品一区二区| heyzo高无码国产精品| 日本aⅴ精品中文字幕| 亚洲日韩精品无码专区网站| 青青热久久国产久精品 | 精品人妻无码专区中文字幕 | 国产成人精品免费视频大全| 久久99国产精品二区不卡| 国产精品99久久精品| 999在线视频精品免费播放观看| 久久精品中文騷妇女内射| 四虎国产精品永久在线| 亚洲精品你懂的在线观看| 亚洲精品无码久久久影院相关影片 | 亚洲精品无码鲁网中文电影| 亚洲色精品vr一区二区三区| 野狼精品社区| 亚洲乱码精品久久久久..| 婷婷精品国产亚洲AV麻豆不片| 久久国产热精品波多野结衣AV| 国内精品久久久久影院优| 久久99精品久久久久久hb无码| 国产乱子伦精品无码码专区|