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

网络中都只是告诉我们怎么插入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”；