1. Drücke Alt+F11
  2. Gehe zu Insert/Module
  3. Kopiere den folgenden Code in die 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. Drücke Run/Run Sub, Userform
5. Das Video wird unter dem Namen test.wmv auf deinem Desktop gespeichert