在打开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