怎么控制PowerPoint里的Flash歌曲播放.docx

在PowerPoint中控制Flash歌曲播放是一项实用技巧，尤其对于制作互动式教学课件十分有用。以下是如何实现这一功能的详细步骤： 你需要在PowerPoint课件中插入Flash动画。在“视图”菜单中选择“工具栏”，然后选择“控件工具箱”。在弹出的控件工具箱中，找到“其他控件”，并选择“Shockwave Flash Object”。接下来，使用鼠标在幻灯片上拖拽出一个适合的矩形区域，这将成为Flash影片的播放窗口。在“属性”面板中，你需要设置“Movie”属性，填写Flash影片的路径和文件名。此外，你可以保留默认的“名称”，例如“ShockwaveFlash1”。 接着，为了添加控制功能，我们需要插入命令按钮。在“控件工具箱”中选择“命令按钮”，在幻灯片上拖动创建按钮，并根据需求调整大小。对每个按钮进行“属性”设置，如“名称”和“Caption”（即按钮显示的文字），比如“cmd_play”用于播放，“cmd_pause”用于暂停，以此类推。 对于每个按钮，我们需要编写VBA（Visual Basic for Applications）代码来定义其功能。双击按钮进入VBA编辑窗口，输入相应的指令。例如，播放按钮的代码是： ```vb Private Sub cmd_play_Click() ShockwaveFlash1.Playing = True End Sub ``` 暂停按钮的代码是： ```vb Private Sub cmd_pause_Click() ShockwaveFlash1.Playing = False End Sub ``` 前进和后退按钮需要指定移动的帧数，例如前进30帧： ```vb Private Sub cmd_forward_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 ShockwaveFlash1.Playing = True End Sub Private Sub cmd_back_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 ShockwaveFlash1.Playing = True End Sub ``` 返回和结束按钮则将帧数设定为1或总帧数： ```vb Private Sub cmd_start_Click() ShockwaveFlash1.FrameNum = 1 ShockwaveFlash1.Playing = True End Sub Private Sub cmd_end_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames End Sub ``` 如果你发现按钮没有响应，可能是因为宏的安全设置过高。进入“工具”菜单，选择“宏”> “安全性”，并将安全级别设置为“低”。重新打开PowerPoint，你应该就可以正常使用这些控制按钮了。 通过以上步骤，你可以在PowerPoint中实现对插入的Flash歌曲的播放、暂停、快进、快退和结束等操作，极大地提升了课件的交互性和用户体验。