VBA for Opening and closing powerpoint in Excel

[KayJay0618]

I have 4 PowerPoint Shows that I need to open, run, close in a specific order. I'd love to be able to code in each PowerPoint to close by clicking an action button and then open the next show. But I'm having trouble finding any good suggestions on the internet. So I thought perhaps opening them and closing them using Excel might work. The 4 shows are named FirstShow, SecondShow, ThirdShow and FourthShow (I know - not very original). When I get to the last slide of FirstShow, I would need to close the FirstShow and open the SecondShow, etc. They are all located in the same directory.

Any suggestions would be tremendously appreciated. I've done some vba in Excel and I'm not sure whether it would be easier to control from an Excel file or with an action button at the end of each "show".

 

[Worf]

The Excel example below runs each show sequentially,without interruption.
I can provide a PowerPoint-only solution later if you wish. A master presentation would be easier than action buttons at the individual files.

' Excel module
Sub Main()
Dim objPres As Object, objShow As Object, objppt, ind%, si%, a
a = Array("one", "two")         ' file names
For ind = LBound(a) To UBound(a)
    Set objppt = CreateObject("PowerPoint.Application")
    Set objPres = objppt.Presentations.Open("c:\tmp\" & a(ind) & ".pptx")
    objPres.SlideShowSettings.AdvanceMode = 0  ' Advance slides manually (via code)
    Set objShow = objPres.SlideShowSettings.Run.View
    If Err.Number <> 0 Then
        objPres.Saved = True   ' (otherwise, it will ask the console whether to save!)
        objPres.Close
        Exit Sub
    End If
    For si = 1 To objPres.Slides.Count
        objShow.GotoSlide si
        If Err.Number <> 0 Then
            objPres.Saved = True
            objPres.Close: Exit Sub
        End If
        wt                      ' a few seconds for slide display
    Next
    objPres.Saved = True
    objPres.Close
    If Err.Number <> 0 Then Exit Sub
    Set objppt = Nothing
Next
End Sub
 
Sub wt()
Const d = 1000000000    ' adjust time here
Dim i&, j&
For i = 1 To d
    j = i + 5           ' meaningless calculation
Next
End Sub

 

[KayJay0618]

I will play around with it. I might reach out to you later. Thank you so much!