Microsoft KB Archive/168597: Difference between revisions

From BetaArchive Wiki
m (Text replacement - ">" to ">")
m (Text replacement - "&" to "&")
 
(One intermediate revision by the same user not shown)
Line 71: Line 71:
       ' assumes PowerPoint is running. If PowerPoint is not
       ' assumes PowerPoint is running. If PowerPoint is not
       ' running, the Err object gets set.
       ' running, the Err object gets set.
       Set ppt = GetObject(, "PowerPoint.Application.8")
       Set ppt = GetObject(, "PowerPoint.Application.8")


       ' Check if an error occurred when running GetObject.
       ' Check if an error occurred when running GetObject.
       If Err.Number <> 0 Then
       If Err.Number <> 0 Then
         MsgBox &quot;PowerPoint is not running. Start PowerPoint, open a &quot; _
         MsgBox "PowerPoint is not running. Start PowerPoint, open a " _
             &amp; &quot;presentation, and run the code again.&quot;
             & "presentation, and run the code again."
         End
         End
       End If
       End If
Line 87: Line 87:
       ' Check if an error occurred when running GetObject.
       ' Check if an error occurred when running GetObject.
       If Err.Number <> 0 Then
       If Err.Number <> 0 Then
         MsgBox &quot;A presentation is not open. Open a presentation and &quot; _
         MsgBox "A presentation is not open. Open a presentation and " _
             &amp; &quot;run the code again.&quot;
             & "run the code again."
         End
         End
       End If
       End If
Line 103: Line 103:
         ' The slide show did not end. The code should never
         ' The slide show did not end. The code should never
         ' flow here.
         ' flow here.
         MsgBox &quot;Slide Show did not end!&quot;
         MsgBox "Slide Show did not end!"
         End
         End


Line 112: Line 112:
         ' NOTE: If you are running this code from a control on a form,
         ' NOTE: If you are running this code from a control on a form,
         ' you should give focus back to your form (Form1.GetFocus) here.
         ' you should give focus back to your form (Form1.GetFocus) here.
         MsgBox &quot;SLIDE SHOW DONE!&quot;
         MsgBox "SLIDE SHOW DONE!"


       End If
       End If

Latest revision as of 11:29, 21 July 2020

Article ID: 168597

Article Last Modified on 10/11/2006



APPLIES TO

  • Microsoft PowerPoint 97 Standard Edition
  • Microsoft Visual Basic 5.0 Professional Edition



This article was previously published under Q168597

SUMMARY

This article provides sample Microsoft Visual Basic for Applications code that detects when a slide show has ended. 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.

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.8")

      ' 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

      ' 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 additional information about getting help with Visual Basic for Applications, please see the following article in the Microsoft Knowledge Base:

163435 VBA: Programming Resources for Visual Basic for Applications



Additional query words: 97 ppt8 ppt8.0 vb5 vba5 kbmacro vba vbe 8.00

Keywords: kbcode kbdtacode kbhowto kbinterop kbmacro kbprogramming KB168597