How do I run a Powerpoint slide show using visual basic code?
Posted on 2007-11-17
The goal is to run a powerpoint slide show by clicking a command button on a microsoft access database form. I have attempted this several times with different pieces of code from searching online. If there is an easier way to do it using just a macro and no code, then I am not that well-versed. Here are some of the samples of code I have used with several different error messages:
Function OpenPPTFile() As Boolean
Dim stAppName As String
stAppName = "C:\Documents and Settings\Blang\My Documents\Powerpointz\BLangBomberz.ppt"
Shell stAppName, vbNormalFocus
OpenPPTFile = True
Private Sub startSlideShow()
Dim pptObject As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation
Set pptObject = CreateObject("PowerPoint.Application")
pptObject.Visible = True
Set pptPres = pptObject.Presentations.Open("C:\Documents and Settings\Blang\My Documents\Powerpointz\BLangBomberz.ppt")
Set PPT = Nothing
The error I am getting is that the property is not set for automation operations. Any help would be appreciated.