-
-
Save KevinNitroG/81d143ef37b054caf0f97e65b30de476 to your computer and use it in GitHub Desktop.
Export Powerpoint presentation as a 60 fps video
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' Save presentation as pptm then create a macro in "View > Macros", run it | |
| Sub MkVideo() | |
| If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then | |
| ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\video.wmv", _ | |
| UseTimingsAndNarrations:=True, _ | |
| VertResolution:=1080, _ | |
| FramesPerSecond:=60, _ | |
| 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