操作方法
用 PowerPoint 2010 打开含有视频文件的PPT 文档。
接着，按 Alt + F11 开启PPT的 VBA功能。
出现 VBA活动窗口后，然后按 Ctrl + G 打开VBA的【立即窗口】 视窗。
将下面一串代码复制到【立即窗口】中。请参照例子，将 SaveAs后的内容稍作修改。 ActivePresentation.SaveAs "<Drive>:\users\<username>\desktop\<filename>.htm", ppSaveAsHTML, msoFalse （例如：这里设置存储路径为D盘，档案名称为123.htm，则改成： ActivePresentation.SaveAs "D:\123.htm", ppSaveAsHTML, msoFalse）。
完成输入后，按Enter 键执行。等待几秒钟，在存储路径里面，可以找到名称为123.files的文件夹。
在123.files文件夹里面，按照文件大小排序就可以找到视频格式文件（较大的文件一般就是视频文件）。这里用作演示的PPT，可以看出里面插入的是gif动态格式图片。（17M的动态图片，用系统自带的图片查看器，要加载十秒左右才能打开，推荐用视频播放器。）