|
|
1、运行PPT，切换到要插入Flash动画的幻灯片。
2、单击“视图”菜单，在弹出的下拉菜单中单击“工具栏”，再在弹出的子菜单中单击“控件工具箱”，便出现“控件工具箱”
3、单击“控件工具箱”中的“其他控件”，弹出ActiveX控件窗口，窗口中列出了系统已经安装的所有ActiveX控件。利用键盘上的光标控制键，在控件列表中找到“Shockwave Flash Object”并单击，此时系统会自动关闭控件窗口。
4、将光标移动到PowerPoint的编辑区域中，光标变成“十”字形，按下鼠标并拖动，画出适当大小的矩形框，这个矩形区域就是播放动画的区域。
5、右单击矩形框，在出现的快捷菜单中单击“属性”，出现“属性”窗口。
6、在设置控件属性时，如你的机器中安装的是Flashplayer9以前的版本，控件属性窗口中会有一个“自定义”选项，点击“自定义中的… ”会出现属性页。在这一步，影片URL(M) 中输入要插入的Flash影片的路径、名称及扩展名。并将“嵌入影片”选中，即可实现将Flash影片嵌入PPT文档中的效果。
7、必须说明的是，如果你机器中安装的是新版的Flash控件，根本没有“自定义”选项。那也不用急，直接使用控件属性窗口设置也可完成同样效果，只是属性都是英文，不像属性页中的中文易懂。属性页中影片URL(M) 对应的是控件属性窗口中的Movie（影片）属性。“嵌入影片”选项对应的是属性窗口中的EmbedMovie（嵌入）属性。我们只需在控件属性窗口，Movie属性后输入路径、文件名及扩展名，将“EmbedMovie（嵌入）”属性设置成“True” 即可。
8、放映该幻灯片，你所期待的画面就出现了。将设置好的文档保存并关闭，这样Flash就被包含到PPT文档中，成为一个文件了。我们只需拷贝这一个文件，再也不用担心Flash丢失了。
9、在PPT中实现对Flash的播放控制。如果插入的Flash动画本身不包括控制按钮，而你又想控制动画暂停或继续播放，该怎么实现呢？插入命令按钮
（1）制作(播放)按钮 在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在“属性”面板中作如下设置：“名称”中输入“cmd_play”，“Caption”中输入“播放”。双击该按钮，进入VBA编辑窗口，输入如下内容：
Private Sub cmd_play_Click()
ShockwaveFlash1.Playing = True
End Sub
（2）制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮 按钮制作的方法同上。“属性”面板中分别作如下设置：暂停按钮的“名称”为“cmd_pause”，“Caption”为“暂停”；前进按钮按钮的“名称”为“cmd_forward”，“Caption”为“前进”；后退按钮的“名称”为“cmd_back”，“Caption”为“后退”；返回按钮的“名称”为“cmd_start”，“Caption
”为“返回”；结束按钮的“名称”为“cmd_end”，“Caption”为“结束”。
分别为各个按钮加上VBA，命令依次如下：
Private Sub cmd_pause_Click()
ShockwaveFlash1.Playing = False
End Sub
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
Private Sub cmd_start_Click()
ShockwaveFlash1.FrameNum = 1
ShockwaveFlash1.Playing = True
End Sub
Private Sub cmd_end_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话，Flash影片会停止播放，所以这句是万万不可少的。
（3）播放幻灯片 看看按钮是不是可以控制影片了呢？什么？没反应，那一定是你的宏的安全性设得太高了，单击“工具/宏/安全性”，将“安全级”设为“低”。重新打开PowerPoint，可以了吧。 |
|
