ppt（Powerpoint）中插入swf（flash）动画方式

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://cloud.tencent.com/developer/article/1334515

网络中都只是告诉我们怎么插入swf，可是2013版powerpoint插入swf后根本无播放，每次播放都是自动将playing置为false，很郁闷，只好用vba解决。

•mp4格式用格式工厂转成swf文件。其他格式视频是不行的。

•插入swf文件

•点“视图”------“工具栏”-------“控件工具箱”，打开“控件工具箱”对话框。

•点“其它控件”，在打开的对话框中找到Shockwave Flash Object控件

•点击ShockwaveFlash Object控件，然后按住鼠标左键不松手，在PPT编辑区画出一个“信封包”，这个信封包就是播放SWF文件的区域。

•右键点击“信封包”，在弹出的菜单中点击“属性”，弹出控件属性对话框。

•在弹出的对话框中进行设置：在Movie栏目后填写要播放的SWF文件路径和文件名，并要注意四点：一定要写文件后缀名；在EmbedMovie选项中选择true；

•有swf的页面都要加代码：

•Sub OnSlideShowPageChange()

•ShockwaveFlash1.Playing = True

•End Sub

•Swf属性设置：

•loop为false。

•如果你想让swf文件嵌入PPT中后，在PPT文件移动时，不再移动SWF的原文件，嵌入的SWF也能正常播放，则需要加入如下命令：

•打开“属性窗口”

•“Allow Script Access”选项的值输入“Always”；

•“Embed Movie”选项的值设为“True”；

•“Movie”选项的值设为“Window”；