Open slide show at a specific slide

[tives]

Hello all,

I am trying to get a some code to open a slideshow at a specific slide. I am currently using the code below. This opens the slideshow, then moves to the selected slide (3). This looks messy though as it shows slide 1 briefly then slide 3. Any ideas on how to open at slide 3 instead without going via slide 1?

Sub Openslideshow()
ActivePresentation.SlideShowSettings.Run.
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End Sub

Additionally this is all part of a large macro which is designed to switch the slideshow from presenter mode to kiosk mode when at a specific slide. The code I am using is below.

Sub Kioskmode()
With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeKiosk ' or ppShowTypeSpeaker etc
.LoopUntilStopped = msoFalse
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowUseSlideTimings
.PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
.Run
End With

Sub switchmodes()
Call Kioskmode
ActivePresentation.SlideShowWindow.View.Exit
ActivePresentation.SlideShowSettings.Run
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End Sub

Is there a better/smoother way to do this without slideshows closing and opening and jumping between slides? Ideally I would like to click a button on slide x and move to slide y changing to kiosk mode on route.

Thanks for your help!

[John Wilson]

For the first try:

Sub from3()
ActiveWindow.View.GotoSlide 3
Application.CommandBars.ExecuteMso ("SlideShowFromCurrent")
End Sub

I don't think you can switch modes without closing the show, even if you link to another presenation it inherits the mode.

[tives]

Thanks for the help, this has made it a bit smoother at least.