控制powerpoint课件中flash歌曲的播放

1 / 3 控制 PowerPoint 课件中 Flash 歌曲的播放 在 PowerPoint 课件中，插入 Flash动画已经不是什么新鲜事了。这不，这次的英语课件中，应英语老师的要求，插入了网上找来的一个 Flash英文歌，果然为课件增色不少。但英语老师提出要在课件中控制这个英文歌，比如说播放、暂停、快进、快退等。呵呵，这倒也难不倒我，用 office中的 VBA就可以做到。 插入 Flash影片 单击 “ 视图 /工具栏 /控件工具箱 ” ，选择 “ 其他控件/ShockwaveFlashobject” ，在幻灯片中用 鼠标拖出一个方框，调整好大小。这样，我们用插入控件的方法插入一个Flash控件，选择当前控件，在 “ 属性 ” 面板中作如下设置：“movie” 中填入所需的 Flash 影片名称， “ 名称 ” 就用默认的 “ShockwaveFlash1” ，这个名称在后面的 VBA 编程中要用到。 插入命令按钮 1.制作 (播放 )按钮 在 “ 控件工具箱 ” 中选择 “ 命令按钮 ” ，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在 “ 属性 ” 面板中作如下设置： “ 名称 ” 中输入 “cmd_play” ， “caption”中输入 “ 播放 ” 。双 击该按钮，进入 VBA编辑窗口，输入如下内容： 2 / 3 PrivateSubcmd_play_click() =True EndSub 2.制作 (暂停 )、 (前进 )、 (后退 )、 (返回 )、 (结束 )按钮 按钮制作的方法同上。 “ 属性 ” 面板中分别作如下设置：暂停按钮的 “ 名称 ” 为 “cmd_pause” ， “caption” 为“ 暂停 ” ；前进按钮按钮的 “ 名称 ” 为 “cmd_forward” ，“caption” 为 “ 前进 ” ； 后 退 按 钮 的 “ 名称 ” 为“cmd_back” ， “caption” 为 “ 后退 ” ；返回按钮的 “ 名称 ” 为 “cmd_start” ， “caption” 为 “ 返回 ” ；结束按钮的 “ 名称 ” 为 “cmd_end” ， “caption” 为 “ 结束 ” 。 分别为各个按钮加上 VBA，命令依次如下： PrivateSubcmd_pause_click() =False EndSub PrivateSubcmd_forward_click() =+30 =True EndSub PrivateSubcmd_back_click() = =True 3 / 3 EndSub PrivateSubcmd_start_click() =1 =True EndSub PrivateSubcmd_end_click() = EndSub 说明：在 (前进 )、 (后退 )、 (返回 )按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话， Flash 影片会停止播放，所以这句是万万不可少的。 3.播放幻灯片 看看 按钮是不是可以控制影片了呢？什么？没反应，那一定是你的宏的安