1. Press Alt+F11
  2. Go to Insert/Module
  3. 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 safed to your desktop as test.wmv