Does anyone have a written macro that I can run in a powerpoint show to link to another show and close the show just completed?

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

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

tried it....couldn't get it to work....I just don't know VBA that well....no biggy, the user will just have to close the program on their own....

Set nextpres = Presentations.Open("C:\Users\John\Desktop\bug.pptx ")

You did set the path to be a file on your PC?

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

actually, the files reside on a server.....I placed the target path of the server on the line you stated...

Does anything happen when you click the button that runs the code?

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

nothing....I am linking from a slideshow on my computer to a slideshow on the server...The show doesn't close and the other doesn't open...

we are talking Office 2007 also...

Should work in 2007. It sounds like whatever you are doing in not running the macro at all.

If you insert this MsgBox "OK,I'm running"

Like this:


Sub newshow()
Dim nextpres As Presentation
Msgbox "OK,I'm running"
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

If you don't see the message then the button is not running the code and you need to investigate why.

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

OK....I inserted the line and the box appears...I went to the developer screen and ran it and it appears, but I get a
run time error '2147188160 (800482240)
SlideShowWindows (unknown member) : Interger out of range. 1 is not in the valid range of 1 to 0...the debugger highlights the line right under the msgbox line...

OK is this a ppsx file maybe.

The purpose of both the minimise lines is to make sure the edit window is not in front. You can probably delete at least the first one probably both. If you have a ppsx there is no edit widow of course and it will error.

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

I saved it as a ppsm and tried it.....the i am running window opens but the program doesn't close or the other doesn't open....

I was suggesting it WONT work with a ppsm.

Try removing the two lines that minimise the window


Sub newshow()
Dim nextpres As Presentation
Msgbox "OK,I'm running"

SlideShowWindows(1).View.Exit
Set nextpres = Presentations.Open("your full path ")

nextpres.SlideShowSettings.Run
End Sub

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

OK....I did what you said, and it works if I run a show right from the ppt....I tried saving it in ppsx and ppmx and ran it and it doesn't work...

so getting close...