Export Script: PowerPoint to 4K Video

Bellow is the Script for Exporting .ppt to .mp4

Sub PowerPointVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ(“USERPROFILE”) & “\Desktop\My PowerPoint Video.mp4”, _
UseTimingsAndNarrations:=True, _
VertResolution:=2160, _
FramesPerSecond:=60, _
Quality:=100
Else: MsgBox “There is another conversion to video in progress”
End If
End Sub