Microsoft KB Archive/147628

= ACC95: How to Run an MS PowerPoint 95 Slide Show in Access 95 =

Article ID: 147628

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Access 95 Standard Edition

-



This article was previously published under Q147628



Moderate: Requires basic macro, coding, and interoperability skills.



SUMMARY
This article demonstrates how to run a Microsoft PowerPoint for Windows 95 slide show from Microsoft Access for Windows 95 version 7.0 using OLE Automation.

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to the "Building Applications with Microsoft Access for Windows 95" manual.

NOTE: You must have both Microsoft PowerPoint for Windows 95 and Microsoft Access 7.0 installed on your computer. Also, you need to create a Microsoft PowerPoint presentation (.ppt) in order to use the technique described in this article.



MORE INFORMATION
The following example creates a form that has a command button on it for running a specific Microsoft PowerPoint presentation (.ppt) as a slide show in a separate window on the desktop.

To run a Microsoft PowerPoint slide show from a Microsoft Access form, follow these steps:

 Create a new form not based on any table or query in Design View.  Add a command button to the form as follows: Command button: Name: runSlideShow Caption: Start Slide Show OnClick: =StartSlideShow  On the View menu, click Code to open the Form module.  In the General section of the module, add the following function: '   ' This function sets an object variable to a specific presentation ' (.ppt) using the GetObject function, which makes the connection ' between Microsoft PowerPoint (the OLE Automation Server) and ' Microsoft Access (the OLE Automation Controller). Then, it uses the ' Run method of the presentation object to run a slide show using the ' specified .ppt file. The Run method has a SlideShowType argument, ' which accepts the following values: '   '   Value   Purpose '  --    '   0       To display the slideshow full screen. '  1       To display the slideshow in a window. '   ' Note that if your database has a reference to the PowerPoint 7.0 ' Object Library, you can substitute enumeration types for these ' values: ppSlideShowFullScreen for 0 and ppSlideShowWindow for 1. '

Function startSlideShow

Dim pptObject As Object Set pptObject = GetObject("c:\msoffice\powerpnt\pptexample.ppt") pptObject.slideshow.Run (1)

End Function  Close the Form module and switch the form to Form view. Click the Start Slide Show button to display the specified Microsoft PowerPoint presentation in a separate window.</li></ol>

<div class="references_section">