Skip to content

Instantly share code, notes, and snippets.

@diverted247
Created March 13, 2017 22:43
Show Gist options
  • Save diverted247/9533efac917a40a18755086784a5d043 to your computer and use it in GitHub Desktop.
Save diverted247/9533efac917a40a18755086784a5d043 to your computer and use it in GitHub Desktop.
Export 4K Video from Powerpoint
Sub Export4KPowerpoint()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\export.mp4", _
UseTimingsAndNarrations:=True, _
VertResolution:=2160, _
FramesPerSecond:=30, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub
Copy link

ghost commented Mar 3, 2018

Works perfectly in Office 2016. Tnx

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment