Quit PPT on Slide #, Resume on same slide

[Free2Ryhme]

I would like to be able to stop a slide show on any slide in the show, quit
powerpoint, and then at some later time resume powerpoint at that same slide.
Any ideas? I have only basic knowledge of VBA, so when I say "possible", I
mean "possible with novice level knowledge and less than ~6 hours of code
comprehension and modifying".

 

[David M. Marcovitz]

There are a few ways that I can think of to do this. One thing you might try
is:

Sub QuitAndStartHere()
Dim i As Long
For i = 1 To ActivePresentation.SlideShowWindow.View.Slide.SlideIndex - 1
ActivePresentation.Slides(i).SlideShowTransition.Hidden = True
Next i
ActivePresentation.Save
ActivePresentation.SlideShowWindow.View.Exit
End Sub

This sets the previous slides to be hidden. That might work, but it doesn't
seem to work for me right now (on my Mac running PowerPoint 98). The
presentation seems to be starting on the first slide no matter what.

Another possibility is to make the first slide a title slide and have a
button that links to the slide where you left off. It wouldn't be too hard to
get the VBA to set this hyperlink.

Another possibility is to use the code above, except change the first 1 to 2
in For i = 1 to ... (i.e For i = 2 to ...). Then you will not hide the first
slide, but all the others between the first slide and the resume slide. The
slide show will always start on the first slide, but then on mouse click it
will skip to the resume slide. This works nicely on my Mac with PowerPoint
98, and I'm sure will work on other versions of PowerPoint.

--David

David Marcovitz
Microsoft PowerPoint MVP
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Bill Dilworth]

Another option --

Create two types of shapes with action settings to run these two macros

Shape 1 sets the save point -- place this at the end of each section and
click on it to save.

Shape 2 resumes to the save point -- place this on the first visible slide
of the presentation. Click on it to jump to where you saved last.

----------Begin Code---------
Sub SetSavePoint()
SaveSetting "PowerPointMacros", _
"SlideSavePoint", ActivePresentation.Name, _
Str(ActivePresentation.SlideShowWindow _
.View.CurrentShowPosition)
End Sub


Sub GotoSavePoint()
ActivePresentation.SlideShowWindow _
.View.GotoSlide Val(GetSetting("PowerPointMacros", _
"SlideSavePoint", ActivePresentation.Name, _
"1")), msoTrue
End Sub
----------End Code---------

This stores the presentation's save point in the registry, so can be
recalled at any point in the future, but does not change the presentation.


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint
yahoo. FAQ pages. They answer most
com of our questions.
www.pptfaq.com
..
..