设置主页 | 收藏本站 Excel学习网-公益型的EXCEL在线学习网站,助您轻松办公!

怎么设置ActiveWindow对象的属性打开Excel工作簿变大的动画效果

2021年01月08日 19:13 发布来源:Excel学习网

 当您打开Excel工作簿时,它会在程序窗口中由小到大一直到最大,从而获得独特的视觉效果。通过使用VBA设置ActiveWindow对象的属性,Excel中的工作簿变大动画效果很方便。下面就是小编为你带来的关于设置ActiveWindow对象属性打开Excel工作簿变大的动画效果,希望对你有所帮助。

设定ActiveWindow对象的属性,打开一个增大Excel工作簿的动画。
启动Excel,打开VisualBasic编辑器,双击工程浏览器中的“ThisWorkbook”,打开Code窗口,输入程序代码,如图1所示。下面显示了具体的程序代码:
PrivateSubWorkbook_Open()
DimiAsInteger
WithActiveWindow
.WindowState=xlNormal'窗口最小化
.Top=1'设置窗口位置
.Left=1
.Height=50'设置窗口大小
.Width=50
Fori=50ToApplication.UsableHeight'循环设置窗口高度
.Height=i
Next
Fori=50ToApplication.UsableWidth'循环设置窗口宽度
.Width=i
Next
.WindowState=xlMaximized'窗口最大化
EndWith
EndSub
怎么设置ActiveWindow对象的属性打开Excel工作簿变大的动画效果
图1 在“代码”窗口中输入程序代码

怎么设置ActiveWindow对象的属性打开Excel工作簿变大的动画效果

提示
如果ActiveWindow对象的WindowState属性值为xlNormal,则该工作簿窗口将被用来设置窗口的初始状态;如果该属性值为xlMaximized,则该工作簿窗口将最大化;如果该属性值为xlMinized,则该工作簿窗口将被最小化。
ActiveWindow对象的Top和Left属性值可设置工作簿初始化位置;AtiveWindow对象的Width和Height属性值可设置工作簿窗口的宽度和高度;UseableWidth和UseableHeight属性值可由应用程序窗口区域中的某个窗口拥有。
切换到Excel窗口,在保存文档之后,关闭文档。重新打开文档时,工作簿窗口将会向上和向下扩展,然后会从左到右扩展到全屏。
原创文章如转载请注明:转载自Excel学习网 [ http://www.excelcn.com/]
需要保留本文链接地址:http://www.excelcn.com/xuexixinde/13038.html
分享到:
网站地图 | XML地图 | 免责声明 | 关于我们 | Excel学习网:优秀的EXCEL在线学习和资源分享网站。
版权所有: CopyRight © 2013-2018 www.excelcn.com All Rights Reserved.
豫ICP备12002644号