Trying to exit running slide show using VBA code

[shane-t]

I have a routine that I need to run automatically, but it needs the running
slideshow to close to run, so I've been trying to use
ActivePresentation.SlideShowWindow.View.Exit within the routine
OnSlideShowPageChange()
to do that.
It appears to work fine, the running show exits, but after a couple of
seconds, Powerpoint crashes and I get the screen asking me would I like to
send the error report to Microsoft. This is driving me nuts, anyone got any
ideas why this happens, or know of some other way to stop the presentation
using vba code?

 

[Shyam Pillai]

I don't think you've provided all the code you are using in your routine.
The event you've mentioned fires when PowerPoint switches to a new slide.

Regards,
Shyam Pillai

Animation Carbon: http://www.animationcarbon.com

 

[shane-t]

Sub ExitAllShows()
Do While SlideShowWindows.count > 0
SlideShowWindows(1).View.Exit
Loop
End Sub

Is the routine I'm using. I get a sub to check a text file to see if it
contains a 1 and if it does, the slide show exits

.......
Open y For Input As #1
Line Input #1, tmpStr
Close #1

'Test text we read from file
Dim test As Integer
test = InStr(tmpStr, "1")


If test = 1 Then
Call ExitAllShows


End If
.........



This Checking routine is called from the following routine

Sub OnSlideShowPageChange()

Call checkUpdate

EndSub


Thanks,
Shane