- Press Alt+F11
- Go to Insert/Module
- Paste the following code into the box
Sub MkVideo() If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.wmv", _ UseTimingsAndNarrations:=True, _ VertResolution:=1080, _ FramesPerSecond:=25, _ Quality:=100 Else: MsgBox "There is another conversion to video in progress" End If End Sub
4. Press Run/Run Sub, Userform
5. The file will be saved to your desktop as test.wmv