Quote:
Originally Posted by YounesB3
Thanks for the fast reply. The thing is I have to replace a bunch of powerpoint slides whenever there are updates. How could I do the macro?
|
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