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

• Microsoft PowerPoint 2000
• Microsoft Visual Basic Professional Edition for Windows, version 5.0

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, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft Support professionals 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 needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

Q230746 PPT: Viewer: Presentation Macros Don't Run

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 

REFERENCES

For more information about using the sample code in this article, please see the following article in the Microsoft Knowledge Base:

Q212536 OFF2000: How to Run Sample Code from Knowledge Base Articles

Additional query words: 9.00 ppt9 vba vbe ppt2k powerpt vba2k ppt9.0 ppt2000 program programming

Keywords : kbcode kbinterop kbmacro kbprg kbdta kbdtacode
Version : WINDOWS:2000,5.0
Platform : WINDOWS
Issue type : kbhowto