如何将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

--------------------- 

作者：宇佐见曦夜 

来源：CSDN 

原文：https://blog.csdn.net/q408774831/article/details/78762062