Skip to content

Instantly share code, notes, and snippets.

@sjardim

sjardim/gist:45cebbed791d4c0085d43af40072d2b1

Forked from diverted247/gist:9533efac917a40a18755086784a5d043
Created May 16, 2018 12:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sjardim/45cebbed791d4c0085d43af40072d2b1 to your computer and use it in GitHub Desktop.
Save sjardim/45cebbed791d4c0085d43af40072d2b1 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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment