maybe try hiding all the slides except one and then export to video?
Here is some untested code that might automate this.
Sub exportvidslide()
Dim L As Long
Dim baseFolder As String
baseFolder = Environ("USERPROFILE") & "\Desktop\"
On Error Resume Next
MkDir (baseFolder & "Videos\")
For L = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides.Range.SlideShowTransition.Hidden = True
ActivePresentation.Slides(L).SlideShowTransition.Hidden = False
Call ActivePresentation.CreateVideo(baseFolder & "Videos\VID" & CStr(L) & ".mp4", False, 5, 720, 30, 100)
Next L
End Sub