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

www.tzvx.com 2021-01-11生活日记人已围观

简介office 2013导出高清视频宏代码,其中1080可修改。 Sub MkVideo() If ActivePresentation.CreateVideoStatus ppMediaTaskStatusInProgress Then ActivePresentation.CreateVideo FileName:=Environ(USERPROFILE) Desktop est.mp4, _ UseTimin...

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软件使用,其他软件用不了。

Tags:

热点文章