Exporting each slide as a separate video

Hello Everyone,

So i am using powerpoint to create instagram stories, instead of making it using instagrams built in app, and i am wondering is there any way to export each slide as a separate video 5 second in length ? instead of rendering the full thing cutting it and then saving it in premier as separate clips ?

Appreciate the help

maybe try hiding all the slides except one and then export to video?

Here is some untested code that might automate this.

Code:

---

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

---

Well, of course, there is a way. I am not a professional in this field, and I have no idea how to do this. Still, there are a lot of tutorials on the internet where you can find how to perform such tasks. If you don't get it right, better contact a social media expert that can help you with this problem.

If I were you, I wouldn't bother with such actions. Viewers don't think about how much time you spent on the video.