利用PowerPoint把PPT导出成60帧1080P的视频

不想做靓仔

于 2023-01-14 11:54:40 发布

阅读量3k

点赞数 5

分类专栏：其他文章标签： powerpoint

本文链接：https://blog.csdn.net/dz77dz/article/details/128682542

版权

其他专栏收录该内容

38 篇文章 4 订阅

订阅专栏

想要把PPT导出成1080P60帧率的视频，可以尝试以下办法
软件用的是office power point

1 .打开开发工具选项

点击文件–>选项–>自定义功能区
在这里插入图片描述
这时候就有了开发工具

2.点击 visual basic

在这里插入图片描述
点击运行–>运行宏

随便起个名字，点击创建
在这里插入图片描述

3.这时候把这段代码复制进去

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\1.mp4", _
DefaultSlideDuration:=10, _
VertResolution:=1080, _
FramesPerSecond:=60, _
Quality:=100
End If

这样，然后叉掉
在这里插入图片描述

4.再次点击运行宏

在这里插入图片描述

5.点击运行

在这里插入图片描述

这时候就看到开始导出了
在这里插入图片描述

下面解释下每行代码的作用：

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\1.mp4", _
设置保存路径与文件名。

UseTimingsAndNarrations:=True, _
设置计时和旁白使用指令。

DefaultSlideDuration:=10, _
设置每张幻灯片放映的停留时间。

VertResolution:=1080, _
设置分辨率，单位为p。

FramesPerSecond:=60, _
设置视频帧数，单位为fps。

Quality:=100
设置导出视频质量，值域为0-100。

Else: MsgBox "另一视频转换进程正在运行中，请稍后重试。"
此处可自定义进程重复时的的消息框提示信息。

End If
结束语句。