怎么设置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

.Width=i

EndWith

EndSub

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

图1　在“代码”窗口中输入程序代码

提示

如果ActiveWindow对象的WindowState属性值为xlNormal，则该工作簿窗口将被用来设置窗口的初始状态；如果该属性值为xlMaximized，则该工作簿窗口将最大化；如果该属性值为xlMinized，则该工作簿窗口将被最小化。

ActiveWindow对象的Top和Left属性值可设置工作簿初始化位置；AtiveWindow对象的Width和Height属性值可设置工作簿窗口的宽度和高度；UseableWidth和UseableHeight属性值可由应用程序窗口区域中的某个窗口拥有。

切换到Excel窗口，在保存文档之后，关闭文档。重新打开文档时，工作簿窗口将会向上和向下扩展，然后会从左到右扩展到全屏。

原创文章如转载请注明：转载自Excel学习网 [ http://www.excelxx.com/]
需要保留本文链接地址：http://www.excelxx.com/xuexixinde/13038.html

分享到：