- 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
