Skip to content

Instantly share code, notes, and snippets.

@diverted247

diverted247/gist:9533efac917a40a18755086784a5d043

Created March 13, 2017 22:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save diverted247/9533efac917a40a18755086784a5d043 to your computer and use it in GitHub Desktop.
Save diverted247/9533efac917a40a18755086784a5d043 to your computer and use it in GitHub Desktop.
Download ZIP
Export 4K Video from Powerpoint
Raw
gistfile1.txt
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