View Single Post
 
Old 07-24-2012, 01:44 PM
YounesB3 YounesB3 is offline Windows XP Office 2010 32bit
Advanced Beginner
 
Join Date: Jul 2012
Posts: 37
YounesB3 is on a distinguished road
Default

Quote:
Originally Posted by Cosmo View Post
Something like the following, change the SlideNumber from 10 to whichever slide you need.

Dim slideNumber As Integer
Dim maxSlideNumber As Integer
Dim ssw As SlideShowWindow

Set ssw = Application.SlideShowWindows(1)
slideNumber = 10

maxSlideNumber = ssw.Presentation.Slides.Count
If slideNumber > 0 And slideNumber <= maxSlideNumber Then
ssw.View.gotoSlide slideNumber
Else
MsgBox "Slide number invalid - '" & slideNumber & "'."
End If
I'll try it when I'll have to update it, thanks.
Reply With Quote