在PPT中控制swf的播放
一、实现的效果：
可以实现对插入到PPT中的swf影片，进行"暂停"、"播放"、"循环播放"、"不循环播放"、"快进"、"后退"、"回首帧"、"到末帧"等类控制。
二、制作方法：
1，启动Microsoft Office PowerPoint 2003，单击主菜单中的“视图”=>“工具栏”=>“控件工具箱”，调出“控件工具箱”面板。
2，单击“控件工具箱”中的“其他控件”，在弹出的下拉列表中，找到“ShockWaveFlash Object”这个控件单击。
3，鼠标指针变成十字型后，在幻灯片页面上要插入swf的合适位置，拖出一个矩形框（注：框中会出现一个大叉子），这就是用来插入swf的占位框。
4，右键单击该占位框，弹出的菜单中单击“属性”，再从弹出的“属性”面板中找到“movie”栏，在其右侧输入要插入swf的完整路径，比如：D:\f8\xxt81.swf。直接读取网上的swf文件也是可以的。如果swf动画与本PPT文件在同一个文件夹，则只要输入动画的文件名即可，如：xxt81.swf。
5，再在“属性”面板中找到“embedMovie”栏，把右侧的选项取为“true”。这个选项是让swf文件存储在PPT档案中。如果值为“False”，则要将swf动画与本PPT文件放在一起才能播放，你发给别人时也要把swf动画与本PPT文件一起发过去。
6，在 Word 2003和Excel 2003中插入swf动画的方法同上面类似。
7，swf动画的控制：
（01）从“控件工具箱”中选取“切换按钮（ToggleButton）”，在放置swf动画的页面上合适位置，拖出二个“切换按钮”；再从“控件工具箱”中选取“命令按钮（CommandButton）”，在合适位置，拖出四个“命令按钮”；六个按钮摆成一横排。（摆法各人自定）
（02）右键单击“切换按钮”，弹出的菜单中单击“属性”，会打开按钮“属性”面板。
（03）在“属性”面板中，把二个“切换按钮”的Caption属性，分别改为“播放”、"循环播放"；把四个“命令按钮”的Caption属性，分别改为“前进”、"后退"、“首帧”、"末帧"。
（04）双击"播放"按钮，打开Visual Basic编辑器，输入如下代码：
Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = "播放" Then
ShockwaveFlash1.Playing = True
ToggleButton1.Caption = "暂停"
Else
ShockwaveFlash1.Playing = False
ToggleButton1.Caption = "播放"
End If
End Sub
（05）双击"循环播放"按钮，输入如下代码：
Private Sub ToggleButton2_Click()
If ToggleButton2.Caption = "循环播放" Then
ShockwaveFlash1.Loop = True
ToggleButton2.Caption = "不循环播放"
Else
ShockwaveFlash1.Loop = False
ToggleButton2.Caption = "循环播放"
End If
End Sub
（06）双击"前进"按钮，输入如下代码：
ShockwaveFlash1.Forward'前进一帧
或者：
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 1'前进一帧
如果要一次前进多帧，比如说五帧，则代码如下：
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 5'前进五帧
如果前进几帧后要同时播放，则要同时加上下列这一行：
ShockwaveFlash1.Playing = True
（07）双击"后退"按钮，输入如下代码：
Private Sub CommandButton2_Click()
ShockwaveFlash1.Back'后退一帧
'ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 5'后退五帧
ShockwaveFlash1.Playing = True’后退并播放
End Sub
（08）双击"首帧"按钮，输入如下代码：
Private Sub CommandButton3_Click()
ShockwaveFlash1.FrameNum = 1'返回第一帧
End Sub
（09）双击"末帧"按钮，输入如下代码：
Private Sub CommandButton4_Click()
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames'跳到末帧
End Sub
（10）请单击主菜单中的“工具”=>“宏”=>“安全性”，在弹出的对话框中，把“安全级”设为“低”。
说明：以上代码在MicrosoftOffice PowerPoint 2003中运行通过，不含恶意代码。
2012-02-23-10:30
本文见：D:\PPT\20120223,在PPT中控制swf的播放.txt
制作见：D:\PPT\20120222,在PPT中控制swf的播放.ppt
