Display selected slide

[Guest]

How do I programmatically get a slide to display on the screen. I see that
the slide I'm calling mySlide is selected as I loop through the slides, but
how can I get it to display on the screen?

I have the following:

Sub Rename()
Dim myPPS As Presentation
Dim mySlide As Slide
Set myPPS = ActivePresentation
For Each mySlide In myPPS.Slides
Debug.Print mySlide.SlideIndex, mySlide.Name
mySlide.Select
If mySlide.Name Like "Slide*" Then
newname = InputBox("Enter New Slide Name", Name)
mySlide.Name = newname
End If

Next mySlide

End Sub

 

[Chirag]

You would need a code line like:

ActiveWindow.View.GotoSlide mySlide.SlideIndex

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html