利用ＶＢＡ实现ＰｏｗｅｒＰｏｉｎｔ课件中对Ｆｌａｓｈ的播放控制
一､引言 PowerPoint(简称PPT)是目前最常用的]示设计工具之一｡它简单易用,功能强大,并有强大的超级链接功能,可以直接调用众多外部文件,还可以导入Flash､mp3等影音文件,使得课件图､文､声､形并茂,更具吸引力｡正是这些优点,使PowerPoint受到广泛的青睐｡但是,在实际应用中,PowerPoint中直接导入的Flash文件有个很大的局限:它只能从头到尾地顺序播放,直至完毕,不能进行人为干预｡而在实际应用中往往需要实现人为的播放控制,如:暂停､快进､快退､停止等｡本文介绍的基于VBA(Visual Basic For Applications)的控制手段,能很好地解决这一矛盾｡ 二､VBA简介
VBA是微软开发的､在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言｡VBA可以看做是Visual Basic的一个子集,但VBA又不同于VB｡二者的区别主要体现在三个方面:
第一,VB用于开发设计标准的应用程序,而VBA通常是使已有的应用程序自动化,可以创建自定义的解决方案,适于定制已
有的桌面应用程序｡
第二,VB具有自己的开发环境,而VBA必须寄生于已有的应用程序(如:Word,Excel,PowerPoint等)｡
第三,要运行VB开发的应用程序,用户不必安装VB集成开发环境,因为VB开发出的应用程序是可执行文件(*.exe)｡而VBA开发的程序必须依赖于它的父应用程序,如:Word､PowerPoint等｡
尽管存在这些区别,VBA和VB在结构上仍然十分相似｡事实上,如果已经了解了VB,学习VBA会非常快｡相应的,学完VBA会给学习VB打下坚实的基础｡而且,当学会在PowerPoint中用VBA创建解决方案后,即已具备在Word､Excel､Access､Outlook等中用VBA创建解决方案的大部分知识｡因为在Microsoft产品系列中,VBA是相通的｡
三､利用VBA实现PowerPoint课件中Flash的播放控制
在PowerPoint课件中插入Flash影片已不是新鲜事了,很多人都已经掌握｡但如何控制其播放,则很少有人提及｡通过以下步骤,就可以利用PowerPoint的VBA,一步步实现对Flash的播放控制｡ 1.插入Flash影片
首先,找到需要插入Flash影片的幻灯片｡单击“视
图→工具栏→控件工具箱”命令(如图1),在弹出的“控件工具箱”中!择最后一个按钮,即“其他控件”,然后在列表框中!择“Shockwave Flash Object”,如图2｡之后,鼠标变成“十”字形｡按住鼠标,在幻灯片中合适位置拖出一个方框,并根据需要调整好大小｡这样,我们用插入控件的方法插入了一个Flash控件｡右击当前控件,!择“属性”命令,在弹出的“属性”面板中作如下设置:“名称”就是这个控件的名字,在这里我们用默认的“ShockwaveFlash1”,这个名称在后面的VBA编程中要用到;在“Movie”中填入需要导入的Flash影片的完整路径,如E:\\movie\\川大毕业.swf,如图3｡
2.制作播放控制按钮
导入Flash影片之后放映幻灯片,就可以播放插入的Flash了｡这时候Flash影片是自动顺序播放的,不能进行人为干预｡要实现对影片的自由控制,还需要利用VBA进行编程｡
(1)制作“播放”按钮
依照上面的方法,打开“控件工具箱”｡在“控件工具箱”中!择“命令按钮”,如图4｡此时鼠标变成“十”字形｡按住鼠标,在幻灯片中合适位置进行拖动,即可拖出一个命令按钮｡调整好大小,右击按钮并!择“属性”命令,在“属性”面板中作如下设置:在“名称”中输入按钮的