PowerPoint课件中Flash控制攻略_PowerPoint课件制作教程.docx

在POWCrPoint课件中，插入FIaSh动画已经不是什么新鲜事了。这不，这次的英语课件中，应英语老师的要求，插入了网上找来的一个FlaSh英文歌，果然为课件增色不少。但英语老师提出要在课件中能控制这个英文歌，比如说播放、暂停、快进、快退等功能。呵呵，这倒也难不倒我，用OffiCe中的VBA就可以做到。插入Flash影片单击视图/工具栏/控件工具箱，选择其他控件/ShockwaveFlashObjectr在幻灯片中用鼠标拖出一个方框，调整好大小。这样，我们用插入控件的方法插入一个Flash控件，选择当前控件，在属性面板中作如下设置：MOVie中填入所需的FlaSh影片名称,名称就用默认的"ShockwaveFIashr,这个名称在后面的VBA编程中要用到。插入命令按钮1 .制作（播放）按钮在控件工具箱中选择命令按钮，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在属性面板中作如下设置：名称中输入cmd_play，wCaptionw中输入播放"。双击该按钮,进入VBA编辑窗口，输入如下内容：PrivateSubcmd_play_Click（）ShockwaveFlashl.Playing=TrueEndSub2 .制作（暂停）、（前进）、（后退）、（返回）、（结束）按钮按钮制作的方法同上。属性面板中分别作如下设置：暂停按钮的名称”为cmd_pause，Taptionw为"暂停；前进按钮按钮的名称为cmdJorwardzz,Xaptionw为前Ir;后退按钮的名称"为cmd_back，"Caption"为后退；返回按钮的名称为cmd_start，"Caption"为返回；结束按钮的名称为cmd_end，"Caption"为"结束。分别为各个按钮加上VBA,命令依次如下：PrivateSubcmd_pause_Click（）ShockwaveFlashl.Playing=FalseEndSubPrivateSubcmd_forward_Click()ShockwaveFIashlTrameNum=ShockwaveFIashlTrameNum+30ShockwaveFlashl.Playig=TrueEndSubPrivateSubcmd_back_Click()ShockwaveFIashlTrameNum=ShockwaveFIashlTrameNum-30ShockwaveFlashl.Playig=TrueEndSubPrivateSubcmd_start_Click()ShockwaveFIashlTrameNum=1ShockwaveFlashl.Playing=TrueEndSubPrivateSubcmd_end_Click()ShockwaveFIashlTrameNum=ShockwaveFIashUotaIFramesEndSub说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话，Flash影片会停止播放，所以这句是万万不可少的。3.播放幻灯片看看按钮是不是可以控制影片了呢？什么？没反应，那一定是你的宏的安全性设得太高了，单击工具/宏/安全性，将安全级设为低。重新打开PowerPoint,可以了吧。