Microsoft Office Tutorials and References
In Depth Information
Saving the Show Point
'Tell the user what was done and how many slides were added¶
MsgBox "Task complete. " & SldCnt - OldCnt & _¶
" slides were added.", vbOKOnly, WrapCnt & _¶
" line max. macro"¶
End Sub¶
Note: This is a PowerPoint design mode macro. That means it runs while you create
a presentation and not while you view it.
Saving the Show Point
With this macro, you can quickly resume a slide show where it left off. This
could be very useful for presentations that span multiple sessions, such as
semester classes or weekend seminars.
Example file:
P009.ppt
Scenario: When using a single presentation to teach a class
that will span several weeks (because of how much or how
little will be able to be covered in a given class period), the
entire semester can be run from a single PowerPoint
presentation. In order to resume the presentation where the
class left off last time, you can use a reminder note that you
might lose or, alternatively, you can use a macro to mark the
spot.
Pwr
View the Appendix to learn how to store this procedure
in a Standard module.
Option Explicit¶
' * * * * *¶
Sub SavePoint()¶
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¶
 
Search JabSto ::




Custom Search