用PPT制作动画 如何控制播放与暂停

1、打开ppt软件，在菜单栏选择-开发工具。

2、在开发工具菜单栏下，选择-其他工具。

3、在打开的对话框中选择shockwave flash object，单击确定按钮。

4、用+字形在ppt上拉出一个矩形。

5、在矩形区域右击选择-属性。

6、在左侧弹出的属性对话框中，找到Movie一栏，在后面输入Flash 文件的路径及完整文件名。

7、完成后，把当前幻灯片播放一下，矩形区域就有了插入的flash动画。

插入命令按钮

①制作(播放)按钮

在“控件工具箱”中选择“命令按钮”，在幻灯片中拖动，即可拖出一个命令按钮。调整好大小，在“属性”面板中作如下设置：“名称”中输入“cmd_play”，“caption”中输入“播放”。双击该按钮，进入vba编辑窗口，输入如下内容：

private

sub效率ppt

cmd_play_click()

shockwaveflash1.playing

=

trueend

sub②制作(暂停)、(前进)、(后退)、(返回)、(结束)按钮

按钮制作的方法同上。“属性”面板中分别作如下设置：暂停按钮的“名称”为“cmd_pause”，“caption”为“暂停”;前进按钮按钮的“名称”为“cmd_forward”，“caption”为“前进”;后退按钮的“名称”为“cmd_back”，“caption”为“后退”;返回按钮的“名称”为“cmd_start”，“caption”为“返回”;结束按钮的“名称”为“cmd_end”，“caption”为“结束”。

分别为各个按钮加上vba，命令依次如下：

private

sub

cmd_pause_click()

shockwaveflash1.playing

=

falseend

subprivate

sub

cmd_forward_click()

shockwaveflash1.framenum

=

shockwaveflash1.framenum

+

30

shockwaveflash1.playing

=

trueend

subprivate

sub

cmd_back_click()

shockwaveflash1.framenum

=

shockwaveflash1.framenum

-

30

shockwaveflash1.playing

=

trueend

subprivate

sub

cmd_start_click()

shockwaveflash1.framenum

=

1

shockwaveflash1.playing

=

trueend

subprivate

sub

cmd_end_click()

shockwaveflash1.framenum

=

shockwaveflash1.totalframesend

sub说明：在(前进)、(后退)、(返回)按钮中，后面均加上一条播放命令，是因为在实际应用时，发现后面如果没有播放命令的话，flash影片会停止播放，所以这句是万万不可少的。

知识扩展：以上的设置都完成了，也许您播放给ppt的时候可能无法控制您的flash，原因极有可能就是您计算机的宏的安全性设得太高了，请单击“工具/宏/安全性”，将“安全级”设为“低”。

在ppt里面插入flash，浑然一体

利用ActiveX控件插入动画---选择“视图”->“工具栏”->“控件工具箱”---点击“其它工具图标”，从下拉列表中选择“ShockWaveFlashObject”选项，鼠标变成“+”形状，将其拖动即出现Flash控件图形。---单击“控件工具箱”上的“属性”按钮((打开属性对话框。---选择“自定义”，单击“浏览”按钮，在弹出的对话框中的“MovieURL”中输入.swf文件路径及名称，并调整“play”，“quality”，“loop”等其它属性。))

由于我这里使用的是office2003没有上面的movieurl，需要做的是：把flash文件的绝对地址填入movie中，图片上就是flash钢琴那个。当然其他还有很多对象可以用，看你编程和英文能力