You need to be careful as the windows may not open in the correct order but this should work and give a start.
Sub newshow()
Dim nextpres As Presentation
SlideShowWindows(1).Parent.Windows(1).WindowState = ppWindowMinimized
SlideShowWindows(1).View.Exit
Set nextpres = Presentations.Open("C:\Users\John\Desktop\bug.pptx ")
nextpres.Windows(1).WindowState = ppWindowMinimized
nextpres.SlideShowSettings.Run
End Sub
|