如何将PPT导出为60帧的视频

如何将PPT导出为60帧的视频

---

出于方便展示或保护的目的，有时候我们需要将PPT导出成视频。然而无论是自带的导出功能还是诸如iSlide之类的插件，都将帧数限制到30……

emmmmmmmm

30帧的动画真的看起来很卡啊……

其实，内部编码器并没有这样的限制，利用VBA就可以做到满足强迫症的60帧视频的导出，只需要写一行代码：

Sub SaveVideo()
    ActivePresentation.CreateVideo ActivePresentation.Name + ".mp4", False, 6, 1080, 60, 100
End Sub

运行然后等待就可以，太简单了吧……

MSDN上有关于CreateVideo函数的说明，这个函数有如下的6个参数：

• FileName，导出视频的文件路径
• UseTimingsAndNarrations，是否使用录制的计时和旁白，默认值True，详细见下图
• DefaultSlideDuration ，每张幻灯片的放映秒数，默认值5
• VertResolution，导出视频的垂直分辨率，默认值720
• FramesPerSecond，帧率，默认值30
• Quality，视频的压缩质量（0-100），默认值80