在PPT中插入SWF文件及控制其播放教程
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在PPT中插入SWF文 件及控制其播放
苏州电教馆在线课程培训教程：PPT2003教程 制作：赵立锋
更多教程请见：http://www.cszlf.net
插入Flash影片
单击“视图/工具栏/ 控件工具箱”
更多教程请见：http://www.cszlf.net
选择“其他控件/Shockwave Flash Object”，在 幻灯片中用鼠标拖出一个方框，调整好大小。
说明：在(前进)、(后退)、(返回)按钮中，后 面均加上一条播放命令，是因为在实际应 用时，发现后面如果没有播放命令的话， Flash影片会停止播放，所以这句是万万不 可少的。
更多教程请见：http://www.cszlf.net
播放幻灯片
看看按钮是不是可以控制影片了呢？什么？ 没反应，那一定是你的宏的安全性设得太 高了，单击“工具/宏/安全性”，将“安 全级”设为“低”。重新打开PowerPoint， 可以了吧。
其实就是加入这句：ShockwaveFlash1.Playing = True
注意：Cmd_play 以及 ShockwaveFlash1 这两个名称，看看前面设置 SWF文件时属性中的名称以及控制按钮属性中的名称，是一样的。 如果以后修改过某个地方，则双方应该统一。不统一会怎样呢？
更多教程请见：http://www.cszlf.net
2.将名称栏改为：Cmd_play
3.将Caption栏改为：播 放。这样按钮上将显示 “播放”两字。
更多教程请见：http://www.cszlf.net
4.双击该按钮，进入VBA编辑窗口，输入如 下内容：
Private Sub cmd_play_Click() ShockwaveFlash1.Playing = True End Sub
这只是我想到的原因，谁知道确切的原因，请告 诉我。
更多教程请见：http://www.cszlf.net
插入命令按钮
1. 制作(播放)按钮
在“控件工具箱” 中点击“命令按钮”， 在幻灯片中拖动，即 可拖出一个命令按钮。
更多教程请见：http://www.cszlf.net
1.点控件工具牌上“属性”
5. 制作“返回”按钮
返回按钮的“名称”为“cmd_start”，“Caption”为“返回”
Private Sub cmd_start_Click() ShockwaveFlash1.FrameNum = 1 ShockwaveFlash1.Playing = True End Sub
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
测试
按键盘上F5功能键或菜单上“观看放映”， 应能看到这个动画的效果。如此示例动画 中雪花飘飘的效果。
更多教程请见：http://www.cszlf.net
关于PPT中SWF的疑惑
在接下来的教程中，介绍使用VBA来控制SWF动 画的播放，但经测试，有些SWF文件不能如愿地 被控制，当然，播放是可以的，停止也是可以的， 只是不能一下子暂停或需等某个动画（动作）完 成后才能暂停（这样便会认为暂停没用了：P）。 所以，为了让大家体会到控制的功能，特地使用 stop.swf作为例子给大家使用。这个文件在课程平 台上有说明。
Private Sub cmd_back_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 ShockwaveFlash1.Playing = True End Sub
更多教程请见：http://www.cszlf.net
ShockwaveFlash1.Playing = True
End Sub
＋30表示前进多少帧，你可以改成5试试。 这句不加的话，动画会不继续播放的哟！
更多教程请见：http://www.cszlf.net
4. 制作“后退”按钮
后退按钮的“名称”为“cmd_back”，“Caption”为“后退”
双击“暂停”按钮，在打开的窗口中， 找到： Private Sub Cmd_pause_Click() End Sub
仔细观察并思考： 这里的VBA代码有二行， 分别为哪两个按钮的命令？ 从哪里可以区别出哪条 命令对应哪个按钮？
在中间空白处加入：
ShockwaveFlash1.Playing = False
更多教程请见：http://www.cszlf.net
1.点击控件工具牌中左上角“属性”
用stop.swf这个动画试试，后面有说明
－>2.在Movie栏中输入动画文件名，如：贴春联.swf －>
注意这个名称，可以修改，也可以不改 3.如果动画界面没有显示出来， 可以拖动一下动画边框的小圆圈， 便可显示
2. 制作“暂停”按钮
点击控件工具牌“命令按 钮”，在页面上拖动拉出一 个按钮。再点控件工具牌左 上角“属性”，出现“属性” 对话框，在名称栏修改成： Cmd_pause，在Caption栏修 改为“暂停”。
思考：名称中设置的名称 有什么用？Caption中的文 字会显示在哪里？
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
3. 制作“前进”按钮
Private Sub cmd_forward_Click()
前进按钮按钮的“名称”为“cmd_forward”，“Caption”为 “前进”；
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
wk.baidu.com
6. 制作“结束”按钮
结束按钮的“名称”为“cmd_end”，“Caption”为“结 束”。
Private Sub cmd_end_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
练习
苏州电教馆在线课程培训教程：PPT2003教程 制作：赵立锋
更多教程请见：http://www.cszlf.net
插入Flash影片
单击“视图/工具栏/ 控件工具箱”
更多教程请见：http://www.cszlf.net
选择“其他控件/Shockwave Flash Object”，在 幻灯片中用鼠标拖出一个方框，调整好大小。
说明：在(前进)、(后退)、(返回)按钮中，后 面均加上一条播放命令，是因为在实际应 用时，发现后面如果没有播放命令的话， Flash影片会停止播放，所以这句是万万不 可少的。
更多教程请见：http://www.cszlf.net
播放幻灯片
看看按钮是不是可以控制影片了呢？什么？ 没反应，那一定是你的宏的安全性设得太 高了，单击“工具/宏/安全性”，将“安 全级”设为“低”。重新打开PowerPoint， 可以了吧。
其实就是加入这句：ShockwaveFlash1.Playing = True
注意：Cmd_play 以及 ShockwaveFlash1 这两个名称，看看前面设置 SWF文件时属性中的名称以及控制按钮属性中的名称，是一样的。 如果以后修改过某个地方，则双方应该统一。不统一会怎样呢？
更多教程请见：http://www.cszlf.net
2.将名称栏改为：Cmd_play
3.将Caption栏改为：播 放。这样按钮上将显示 “播放”两字。
更多教程请见：http://www.cszlf.net
4.双击该按钮，进入VBA编辑窗口，输入如 下内容：
Private Sub cmd_play_Click() ShockwaveFlash1.Playing = True End Sub
这只是我想到的原因，谁知道确切的原因，请告 诉我。
更多教程请见：http://www.cszlf.net
插入命令按钮
1. 制作(播放)按钮
在“控件工具箱” 中点击“命令按钮”， 在幻灯片中拖动，即 可拖出一个命令按钮。
更多教程请见：http://www.cszlf.net
1.点控件工具牌上“属性”
5. 制作“返回”按钮
返回按钮的“名称”为“cmd_start”，“Caption”为“返回”
Private Sub cmd_start_Click() ShockwaveFlash1.FrameNum = 1 ShockwaveFlash1.Playing = True End Sub
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
测试
按键盘上F5功能键或菜单上“观看放映”， 应能看到这个动画的效果。如此示例动画 中雪花飘飘的效果。
更多教程请见：http://www.cszlf.net
关于PPT中SWF的疑惑
在接下来的教程中，介绍使用VBA来控制SWF动 画的播放，但经测试，有些SWF文件不能如愿地 被控制，当然，播放是可以的，停止也是可以的， 只是不能一下子暂停或需等某个动画（动作）完 成后才能暂停（这样便会认为暂停没用了：P）。 所以，为了让大家体会到控制的功能，特地使用 stop.swf作为例子给大家使用。这个文件在课程平 台上有说明。
Private Sub cmd_back_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 ShockwaveFlash1.Playing = True End Sub
更多教程请见：http://www.cszlf.net
ShockwaveFlash1.Playing = True
End Sub
＋30表示前进多少帧，你可以改成5试试。 这句不加的话，动画会不继续播放的哟！
更多教程请见：http://www.cszlf.net
4. 制作“后退”按钮
后退按钮的“名称”为“cmd_back”，“Caption”为“后退”
双击“暂停”按钮，在打开的窗口中， 找到： Private Sub Cmd_pause_Click() End Sub
仔细观察并思考： 这里的VBA代码有二行， 分别为哪两个按钮的命令？ 从哪里可以区别出哪条 命令对应哪个按钮？
在中间空白处加入：
ShockwaveFlash1.Playing = False
更多教程请见：http://www.cszlf.net
1.点击控件工具牌中左上角“属性”
用stop.swf这个动画试试，后面有说明
－>2.在Movie栏中输入动画文件名，如：贴春联.swf －>
注意这个名称，可以修改，也可以不改 3.如果动画界面没有显示出来， 可以拖动一下动画边框的小圆圈， 便可显示
2. 制作“暂停”按钮
点击控件工具牌“命令按 钮”，在页面上拖动拉出一 个按钮。再点控件工具牌左 上角“属性”，出现“属性” 对话框，在名称栏修改成： Cmd_pause，在Caption栏修 改为“暂停”。
思考：名称中设置的名称 有什么用？Caption中的文 字会显示在哪里？
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
3. 制作“前进”按钮
Private Sub cmd_forward_Click()
前进按钮按钮的“名称”为“cmd_forward”，“Caption”为 “前进”；
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30
wk.baidu.com
6. 制作“结束”按钮
结束按钮的“名称”为“cmd_end”，“Caption”为“结 束”。
Private Sub cmd_end_Click() ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames
End Sub
更多教程请见：http://www.cszlf.net
更多教程请见：http://www.cszlf.net
练习