在PPT课件中实现对swf的控制

文章来自网络，如有侵权，请联系小编删除，谢谢。...

在PowerPoint课件中实现

对Flash影片的控制

现在我们用PPT做课件时，常常为了丰富课件内容，在其中插入Flash动画．当然我们自己在做Flash动画时都会制作好控制动画播放的按钮．可是当我们用别人的动画素材时那可就不一定了，特别是我们是将网上的视频文件转换成的swf文件那就更没有播放控制按钮了．上一次我就遇到了这样的事，一位语文老师让我帮助做课件，下了一个课文朗读动画来用．可是这位老师想用这个动画录音进行带读，可动画录音中没有控制按钮．这一下到了考验我的时候了．可我是谁啊，这么点小问题就能难住我，还叫什么“高手”呢？哈哈

想了想，我感觉用“宏”是可以解决这个问题的．想到就出手．下面将我的方法给大家分享，谁让我这么“无私”呢！

第一步：插入FLASH

打开PPT文档，插入FLASH文件．方法为：“视图”－>“工具栏”－>“控件工具箱”-“其它工具图标”，从下拉列表中选择“ShockWave Flash Object”选项，鼠标变成“＋”形状，将其拖动即出现Flash控件图形。--单击“控件工具箱”上的“属性”按钮，打开属性对话框。--选择“自定义”，单击“浏览”按钮，在弹出的对话框中的“Movie URL”中输入. swf文件名称（请将swf文件放在ppt同一文件夹中），并调整“play”，“quality”，“loop”等其它属性。如果播放时flash文件不能显示，请下载最新版Adobe Flash Player安装。

第二步：制作按钮：

在“视图”－“工具栏”中打开“控件工具箱”，选择“命令按钮”，在幻灯片中拖动，调整好大小和位置，在“属性”面板中的“名称”中输入“cmd_play”,在“caption”中输入“播放”．其它按钮用同样的方法，只是在“属性”面板中以上两项设置不同，“暂停”按钮名称为“cmd_pause”, “caption”中输“暂停”，“前进”按钮名称为“cmd_forward”, “caption”中输“前进”，“后退”按钮名称为“cmd_back”, “caption”中输“后退”，“返回”按钮名称为“cmd_start”, “caption”中输“返回”，“结束”按钮名称为“cmd_end”, “caption”中输“结束”．

第三步：编辑“宏”

双击各个按钮就可以进入VBA编辑窗口，

在“播放”按钮上输入：

Private Sub cmd_play_Click ( )

ShockwaveFlash1.Playing = True（ShockwaveFlash1是FLASH的默认名称，在第一步中可以修改，但注意这里必须与你修改后的名称一致，这里我就用默认的吧）

End Sub

(其实需要我们输入的只有第二行)

在“暂停”按钮上输入：

Private Sub cmd_pause_Click ( )

ShockwaveFlash1.Playing = False

End Sub

在“前进”按钮上输入：

Private Sub cmd_forward_Click ( )

ShockwaveFlash1.Num = ShockwaveFlash1.Num + 30

ShockwaveFlash1.Playing = True

End Sub

在“后退”按钮上输入：

Private Sub cmd_back_Click ( )

ShockwaveFlash1.Num = ShockwaveFlash1.Num -30

ShockwaveFlash1.Playing = True

End Sub

在“返回”按钮上输入：

Private Sub cmd_start_Click ( )

ShockwaveFlash1.Num = 1

ShockwaveFlash1.Playing = True

End Sub

在“结束”按钮上输入：

Private Sub cmd_end_Click ( )

ShockwaveFlash1.Num = ShockwaveFlash1.Totals

End Sub

第四步：播放幻灯片

以上工作完成后我们还要做一件事，单击“工具／宏／安全性”，将“安全级”设为“低”．保存幻灯片，关闭文件重新打开（不可少哟），是不是一切OK了．

最后说明一下，以上按钮只能控制FLASH主场景时间轴动画，对MC（动画元件）不起作用．

文章来自网络，如有侵权，请联系小编删除，谢谢。

    关注 实用教育技术