Microsoft KB Archive/222700

= PPT2000: Sample Visual Basic Code That Detects When a Slide Show Ends =

Article ID: 222700

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft PowerPoint 2000 Standard Edition
 * Microsoft Visual Basic 5.0 Professional Edition

-



This article was previously published under Q222700





SUMMARY
This article provides sample Microsoft Visual Basic for Applications code that detects the end of the slide show. At the end of the slide show, the procedure displays a message indicating that the show is over.

This Visual Basic example does not handle error trapping in the following cases:
 * PowerPoint is not running.
 * A presentation is not open.



MORE INFORMATION
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. NOTE: The following macro examples work only in PowerPoint. Visual Basic for Applications macros are not supported by the Microsoft PowerPoint Viewer. For additional information, click the following article number to view the article in the Microsoft Knowledge Base:

Sample Visual Basic Procedure
Sub SlideShowStatus

' Enable error trapping. On Error Resume Next Err.Clear

Dim ppt As Object

' Get an object reference to PowerPoint. This code ' assumes PowerPoint is running. If PowerPoint is not ' running, the Err object gets set. Set ppt = GetObject(, "PowerPoint.Application.9")

' Check if an error occurred when running GetObject. If Err.Number <> 0 Then MsgBox "PowerPoint is not running. Start PowerPoint, open a " _ & "presentation, and run the code again." End End If

' Starts a slide show. This code assumes a presentation ' is open. If a presentation is not running the Err object ' is set. ppt.ActivePresentation.SlideShowSettings.Run

' Make sure the pointer is visible. ' SlideShowWindows(Index:=1).View.PointerType= ppSlideShowPointerArrow

' Check if an error occurred when running GetObject. If Err.Number <> 0 Then MsgBox "A presentation is not open. Open a presentation and " _ & "run the code again." End End If

' This loop checks to see if the slide show has ended. When the ' code sets the Err object, the slide show is ended. Do        DoEvents Loop Until ppt.SlideShowWindows(1).View.State = ppSlideShowDone

' Check if the slide show has ended. If Err.Number = 0 Then

' The slide show did not end. The code should never ' flow here. MsgBox "Slide Show did not end!" End

Else

' The slide show has ended. '       ' NOTE: If you are running this code from a control on a form, ' you should give focus back to your form (Form1.GetFocus) here. MsgBox "SLIDE SHOW DONE!"

End If

End Sub

