powerpoint slides on access form

[Silvester]

Hi,

How can I show powerpoint slides on my Access2K form without opening an
instance of Powerpoint ?

Using the code below opens the PP window, which I would like to avoid. I'm
looking for alternative code...

Dim strPowerPointFile As String
Dim pptobj As PowerPoint.Application
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
pptobj.WindowState = ppWindowMinimized

strPowerPointFile = CurrentProject.Path & "\Access2PowerPoint.ppt"


Thanks for any help.

 

[Silvester]

Thanks Steve, what I was trying to do was to get PP to stop opening &
minimizing its window. I managed to achieve this by using this code:

Dim PPT As Object
Dim Pres As Object
Dim strPowerpointfile As String

Set PPT = CreateObject("PowerPoint.Application")

strPowerpointfile = Me.txtPPpath
Set Pres = PPT.Presentations.Open(strPowerpointfile, False, False,
False)