Open PowerPoint in slideshow mode from Excel

An unusual question but I am hoping the experts here can help out.

I have an Excel workbook that models an cost allocation process. There is also a PowerPoint presentation that explains this process. I want, in various worksheets of the workbook, place a command button that will open the PowerPoint in presentation mode. I can set the slides for time. After the PowerPoint slideshow is over, I want to exit PowerPoint and return to Excel.

I have written VBA code that will successfully open the PowerPoint. However, I cannot figure out if it is possible to open in slideshow view, rather than sorter view. Also, I do not know how to allow the PowerPoint to run and close, then return to Excel.

My code at present is:

Please Login or Register  to view this content.

Any help will be appreciated.

Andy:

Perfect; that worked. Another question...after the PowerPoint runs through it's timed settings, is there a way to switch back to Excel? Some type of timer that would automatically trigger switching back to Excel after say, 30 seconds (the time of 6, 5-second slides)?

Thanks.

Andy:

Thanks for the reply. Changed the name of the PowerPoint and placed the code in a new module. The OnTime function is not killing the Powerpoint. When I manually exit the PowerPoint by hitting escape, a runtime error appears on the KillPPT() sub.

Andy:

That removed the error; thanks. After the slides, the PowerPoint show ends, I have to click ESC in order to get back to Excel. So I a now just missing the automatic return to Excel.

Here is a link to the file:

https://www.dropbox.com/s/xxt2nar4fq...del4.xlsm?dl=0

The code is in Module 2.