Consulting

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
    Joined
    Feb 2007
    Posts
    1,907
    Location
    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
    http://www.pptalchemy.co.uk/powerpoi...tutorials.html

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
  •