Jump to PPT from Access

Keesw

New member
Local time
Yesterday, 21:21
Joined
Apr 4, 2004
Messages
5
Hello All,

I have a form on which I want to put a button which will take the user to a set of instructions in PowerPoint. I found the code below on another thread and initially thought it was working.

Private Sub Command45_Click()
Dim AppPPT As Object
Set AppPPT = CreateObject("PowerPoint.Application")
AppPPT.Visible = True
' If you want to hide the PowerPoint Window, set the visible property
' to FALSE and WithWindow argument of Open method to FALSE too.
With AppPPT.Presentations.Open("c:\scales flow chart.ppt")
DoEvents
' Use .PrintOptions property to specify any additional settings
' Set background printing off else, PowerPoint will terminate
' before printing is completed.
.PrintOptions.PrintInBackground = False
.PrintOut
.PrintOptions.PrintInBackground = True
End With
AppPPT.Quit
Set AppPPT = Nothing
End Sub

What it seems to be doing is opening the PowerPoint, printing it and then closing it. I do not want to print it, just have it open for the user to read. Can someone advise me on what to change ?....I am obviously out of my depth !...TIA
 
If you do not care which slide number is opened then you can use the Shell() function to open the *.ppt file. Search here or the Access help files for the Shell function for more info and examples.
 

Users who are viewing this thread

Back
Top Bottom