Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
@cicamicagotovajeprica

This comment has been minimized.

Copy link

cicamicagotovajeprica 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
You can’t perform that action at this time.