1

DiscreteTom's Blog

 2 years ago
source link: https://discretetom.github.io/posts/ppt-export-60-fps-video/
Go to the source link to view the article. You can view the picture content, updated content and better typesetting reading experience. If the link is broken, please click the button below to view the snapshot at that time.
neoserver,ios ssh client

使用PPT导出60帧视频

PPT的非线性动画真好用

默认 PPT 就可以导出视频，但是只能导出 30 帧的视频，不够丝滑 无法体现非线性动画的美

View -> Macros

输入宏的名字，比如video60fps

粘贴如下代码

Sub video60fps()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Video.mp4", _
UseTimingsAndNarrations:=True, _
DefaultSlideDuration:=1, _
VertResolution:=1080, _
FramesPerSecond:=60, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub

然后关闭 VB 编辑窗口，回到 PPT，再次打开 Macros 窗口，选中刚才创建的宏，然后 Run

  • FileName:=Environ("USERPROFILE") & "\Desktop\Video.mp4"
    • 把文件保存在桌面 Video.mp4 中
  • UseTimingsAndNarrations:=True
    • 设置计时和旁白使用指令
  • DefaultSlideDuration:=1
    • 每张幻灯片间隔 1 秒
  • VertResolution:=1080
    • 分片率 1080p
  • FramesPerSecond:=60
    • 60 fps
  • Quality:=100

report

Recommend

About Joyk


Aggregate valuable and interesting links.
Joyk means Joy of geeK