利用VBA实现PowerPoint课件中对Flash的播放控制

1、利用VBA实现PowerPoint课件中对Flash的播放控制一､引言PowerPoint简称PPT）是目前最常用的示设计工具之一｡它简单易用,功能强大,并有强大的超级链接功能,可以直接调用众多外部文件,还可以导入Flash､mp3等影音文件,使得课件图､文､声､形并茂,更具吸引力｡正是这些优点,使PowerPoint受到广泛的青睐｡但是,在实际应用中,PowerPoint中直接导入的Flash文件有个很大的局限:它只能从头到尾地顺序播放,直至完毕,不能进行人为干预｡而

2、在实际应用中往往需要实现人为的播放控制,如:暂停､快进､快退､停止等｡本文介绍的基于VBA（VisualBasicForApplications）的控制手段,能很好地解决这一矛盾｡二､VBA简介VBA微软开发的､在其桌面应用程序中执行通用的自动化（OLE）任务的编程语言｡VBA可以看做是VisualBasic的一个子集，但VBA又不同于VB｡二者的区别主要体现在三个方面:第一,VB用于开发设计标准的应用程序,而VBA通常是使已有的应用程序自动化,可以创建自定义的解决方案,

3、适于定制已有的桌面应用程序｡第二,VB具有自己的开发环境,而VBA必须寄生于已有的应用程序(如:Word,Excel,PowerPoint等)｡第三，要运行VB开发的应用程序，用户不必安装VB集成开发环境,因为VB开发出的应用程序是可执行文件(*.exe)｡而VBA开发的程序必须依赖于它的父应用程序,如:Word､PowerPoint等｡尽管存在这些区别，VBA和VB在结构上仍然十分相似｡事实上,如果已经了解了VB,学习VB4非常快｡相应的,学完VBA会给学习VB打下坚实的基础｡而且

4、，当学会在PowerPoint中用VBA创建解决方案后,即已具备在Word､Excel､Access､Outlook等中用VBA创建解决方案白大部分知识｡因为在Microsoft产品系列中,VBA是相通的｡三､利用VBA实现PowerPoint课件中Flash的播放控制在PowerPoint课件中插入Flash影片已不是新鲜事了,很多人都已经掌握｡但如何控制其播放,则很少有人提及｡通过以下步骤，就可以利用PowerPoint的VBA,一步步实现对Flash的播放控制｡1

5、 .插入Flash影片首先 , 找到需要插入Flash 影片的幻灯片 ｡ 单击“视(如图1),在弹出的“控件工具箱”中!择最后一个按钮,即“其他控件”,然后在列表框中!择“ShockwaveFlashObject”,如图2｡之后,鼠标变成“十”字形｡按住鼠标,在幻灯片中合适位置拖出一个方框,并根据需要调整好大小｡这样,我们用插入控件的方法插入了一个Flash控件｡右击当前控件,!择“属性”命令,在弹出的“属性”面板中作如下设置:“名称”就是这个控件的名字,在这里我们用默认的“ShockwaveFlash1”,这个名称在后面的

6、VBA编程中要用到；在“Movie”中填入需要导入的Flash影片的完整路径,如川大毕业.swf,如图3｡2 .制作播放控制按钮导入Flash影片之后放映幻灯片,就可以播放插入的Flash了｡这时候Flash影片是自动顺序播放的,不能进行人为干预｡要实现对影片的自由控制,还需要利用VBA进行编程｡(1) 制作“播放”按钮依照上面的方法,打开“控件工具箱”｡在“控件工具箱”中!择“命令按钮”,如图4｡此时鼠标变成“十”字形｡按住鼠标,在幻灯片中合适位置进行拖动,即可拖出一个命令按钮｡调

7、整好大小,右击按钮并!择“属性”命令,在“属性”面板中作如下设置:在“名称”中输入按钮的名称,这里使用“Cmd_play”;“Caption”即按钮上显示的文字输入“播放”,如图5｡PrivateSubCmd_play_Click()ShockwaveFlash1.Playing=TrueEndSub如图6｡(2) 制作“暂停”､“快进”､“快退”､“结束”､“返回”按钮利用上述方法,依次制作“暂停”､“快进”､“快退”､“结束”､“返回”等控制按钮

8、5377;各按钮的属性设置及VBAif句如表1｡按上述方法完成按钮制作工作之后,在播放幻灯片时,就可以利用按钮随意控制Flash影片的播放了｡整体效果如图7｡四､需要注意的问题第一,在“快进”､“快退”､“返回”按钮的VBA命令中，均需在后面加上一条播放命令(ShockwaveFlash1.Playing=True),这条语句是必不可少的｡因为在实际应用时,后面如果没有播放命令的话,Flash影片会停止播放｡第二,按上述步骤操作后,如果将PowerPoint文件移到别的播放｡考虑到PowerPoint文件的可移植性,可以将Flash控件的“EmbedMovie属性设置为“True”（如图3所示），表示把Flash影片嵌入到PowerPoint文件中,这样就不会出现路径问题了｡第三,在设置控件的属性时,要注意区别“名称”和“caption”｡“名称”是控件的名字,是惟一的,在程序中引用控件就是通过“名称”来实现的;“caption”是控件显示的文字,一般用来说明控件的功能或用途,它与控件的“名称”没有必然联系,可以相同也可以不同&