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") & "\Desktop\test.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视频，如果对代码一窍不通，那就不要去修改了。

演示邦

接着直接关闭VBA编辑器就行了，然后在我们的PPT菜单栏中，打开视图菜单，再选择并打开“宏”。在打开的“宏”中，我们选择刚刚编辑好的“MkVideo”，接着单击“运行”。然后在PPT底部就会显示导出视频的进度条了，剩下的就是等待导出完成了。

演示邦

导出完成后，在我们的电脑桌面上，会出现一个名称为“test”的WMV格式视频，这就是我们的PPT所导出的1080P视频。打开视频属性，可以发现视频真的是1080P格式的超清视频哦。

演示邦

打开导出的视频，发现视频也是非常清晰的。通过这种方法我们可以很轻松的将我们制作好的视频，结合自己的实际需要，导出为清晰度更高的超清格式视频，甚至是2K视频。

演示邦

好啦，这种方法不管我们的电脑是不是高清屏，也不管我们使用的PPT是不是最新版，只用借助PPT自带的VBA编辑器就可以实现，将PPT文件轻松导出为超清视频了。

文/演示邦，喜欢请订阅，收藏或转发将督促演示邦为您呈现更多精彩，有意见或建议请在评论区留言，谢谢您的关注。