在PowerPoint课件中，插入Flash动画并不是什么新鲜事。不是，在这个英语课件中，应英语老师的要求，插入了一首网上找到的Flash英文歌，确实给课件增加了不少内容。但是英语老师提出在课件中控制这首英文歌，比如播放、暂停、快进、快退等。呵呵，我不介意。我可以和办公室的VBA一起做。

插入Flash电影

点击“视图/工具栏/控件工具箱”，选择“其他控件/冲击波Flash对象”，用鼠标拖动幻灯片中的一个框，调整大小。这样，我们用插入控件的方法插入一个Flash控件，选择当前控件，并在属性面板中进行如下设置：在“Movie”中填写所需的Flash Movie名称，并使用默认的“ShockwaveFlash1”作为名称，这将在后面的VBA编程中使用。

插入命令按钮

1.制作(播放)按钮

在控制工具箱中选择“命令按钮”，并在幻灯片中拖动以拖出一个命令按钮。调整大小，并在属性面板中进行以下设置：在名称中输入cmd_play，在标题中播放。双击此按钮进入VBA编辑窗口，输入以下内容：

私有子cmd_play_Click()

冲击波1。播放=真

末端接头

2.按(暂停)、(前进)、(后退)、(返回)和(结束)按钮。

这个按钮的制作方法和上面的一样。在属性面板中进行如下设置：暂停按钮名称为cmd_pause，标题为pause；前进按钮的名称为cmd_forward，标题为forward。后退按钮的名称是cmd_back，标题是back。返回按钮名称为cmd_start，标题为Return；结束按钮的名称是cmd_end，标题是end。

分别给每个按钮添加VBA，命令如下：

私有子cmd_pause_Click()

冲击波1。播放=假

末端接头

私有子cmd_forward_Click()

冲击波1。FrameNum=ShockwaveFlash1。FrameNum 30

冲击波1。播放=真

末端接头

私有子cmd_back_Click()

冲击波1。FrameNum=ShockwaveFlash1。FrameNum - 30

冲击波1。播放=真

末端接头

私有子cmd_start_Click()

冲击波1。FrameNum=1

冲击波1。播放=真

末端接头

私有子cmd_end_Click()

冲击波1。FrameNum=ShockwaveFlash1。TotalFrames

末端接头

说明：在(前进)、(后退)和(后退)按钮中，后面增加了一个播放命令，因为在实际应用中发现，如果后面没有播放命令，Flash电影就会停止播放，所以这句话绝对是必不可少的。

播放幻灯片

看看按钮能不能控制电影？什么事？没有回应。一定是宏的安全性设置得太高了。单击工具/宏/安全，并将安全级别设置为低。再打开PowerPoint好吗？