Results 1 to 2 of 2

Thread: Exporting each slide as a separate video

  1. #1

    Question 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

  2. #2
    VBAX Master
    Feb 2007
    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
    Last edited by John Wilson; 07-29-2019 at 07:50 AM.
    John Wilson
    Microsoft PowerPoint MVP
    Amazing Free PowerPoint Tutorials

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts