突破极限，轻松将PPT导出为1080P超清视频，带来极致视觉体验

PPT能导出视频大家或许都知道，但大家也都知道PPT所导出的视频压缩严重，所以很多非常高质量的PPT导出的视频清晰度并不是很高。想象一下，你的作品、你的相片、你的动画如果能通过PPT导出超清视频格式，将会是怎样？

演示邦

PPT导出为视频或者创建视频，默认支持MP4和WMV两种格式，而支持导出的视频分辨率仅支持到高清，也就是我们常见的720P视频，分辨率为1280*720格式。想要到超清，PPT就无法办到了，不过值得庆幸的是最新版的PPT，现在已经支持直接导出为超清格式的视频了，也就是支持1920*1080格式的视频。

演示邦

超清视频是目前非常主流的视频分辨率，它的清晰度远高于高清格式视频，为我们呈现出更多的细节，更清晰的视觉体验。但直接导出为超清格式的视频，只有最新版的PPT才可以做到，那么对于不是最新版的PPT，怎样才能导出为超清格式视频呢？

演示邦

不是最新版的PPT其实也可以导出为超清视频的，最简单的方法就是通过录屏软件录制，不过想要输出为超清格式的视频，它有一个前提就是你所使用的电脑屏幕分辨率本身就是超清屏，也就是至少是1920*1080的屏幕。

演示邦

这也是很多人在使用的方法，但如果你的电脑屏幕不是超清屏，那又该怎么办呢？不要急，不是超清屏也是可以将PPT导出为超清视频的。而且这种方法设置好后，后续还可以一直使用，非常简单。

演示邦

此方法来源于国外微软社区上的大神，不用借助任何第三方软件，只用PPT就可以完成，当然它需要借助PPT中的VBA才能完成，过程不复杂，按照下述方法设置即可。

演示邦

我们准备好16:9格式的PPT文件后，再在PPT中直接按下键盘上“Alt+F11”组合键，打开我们的VBA编辑器，然后在菜单栏中选择“插入”，再选择“模块”。打开模块编辑器后，在其中将下述代码复制粘贴进去即可。

Sub MkVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "Desktoptest.wmv", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=25, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub

上述代码格式不要进行修改，它的意思就是将当前PPT导出为1080P，25帧每秒的，视频名称为“test”的WMV格式视频，视频导出位置为你的电脑桌面。当然对于这几个数字我们可以进行修改，可以设置为30帧每秒，也可以设置为2K视频，如果对代码一窍不通，那就不要去修改了。