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

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