• 微信
您当前的位置:主页 > 生活日记 >

office PPT 2013导出1080P高清视频宏代码

作者:admin 时间:2021-01-11 阅读:人已围观
office 2013导出高清视频宏代码,其中1080可修改。

Sub MkVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "Desktop est.mp4", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=25, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub
 
 
 
说明:只支持ppt2013软件使用,其他软件用不了。
标签: