学习啦>学习电脑>工具软件>办公软件学习>Excel教程>Excel2013教程>

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

锦晖分享

  在打开Excel工作簿时,在程序窗口中,工作簿由小变大直至最大,这将获得独特的视觉效果。在Excel中,通过使用VBA设置ActiveWindow对象的属性,可以方便地实现工作簿变大动画效果。以下是学习啦小编为您带来的关于设置ActiveWindow对象的属性打开Excel工作簿变大的动画效果,希望对您有所帮助。

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

  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

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

  提示

  ActiveWindow对象的WindowState属性用于设置窗口的初始状态,如果其值为xlNormal,则工作簿窗口为正常状态;如果其值为xlMaximized,则工作簿窗口最大化;如果其值为xlMinized,则工作簿窗口最小化。

  ActiveWindow对象的Top和Left属性值可以设置工作簿初始位置;AtiveWindow对象的Width和Height属性值可以设置工作簿窗口的宽度和高度;Application对象的UseableWidth和UseableHeigth属性值是应用程序窗口区域中一个窗口能够占有的最大高度和宽度。

  2、切换到Excel窗口,保存文档后关闭文档。当再次打开该文档时,工作簿窗口将由上向下扩大,然后由左向右增大到全屏。

猜你喜欢:

1.Excel超实用小技巧动画教程

2.excel表格多个工作表连续页码怎么设置

3.Excel数据透视表动态数据怎么制作

4.如何用excel表格做动画

5.excel怎么给多个工作表同时录入相同的数据

    3758734