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