pass PowerPoint object

  • Thread starter Thread starter theintern
  • Start date Start date
T

theintern

I'm having trouble passing an object to a sub. code is below. thanks!

Public Function TriFilter2PP()

Dim Continue As Integer
Dim pp As Object

'Puts it in an infinite loop
Continue = 1
'Runs appropriate queries (which create tables), then opens Project
'and PowerPoint
While Continue = 1
Set pp = CreateObject("powerpoint.application")
pp.Visible = True
Set oPres = pp.Presentations.Open("C:\Documents and
Settings\deckers\Desktop\ScheduleOutputIndividual.pptm")
CreateShow (oPres) (IT THROWS THE ERROR AT THIS LINE "OBJECT
DOESN'T SUPPORT THIS PROPERY OR METHOD")
DoCmd.SetWarnings True
Wend

End Function

Sub CreateShow(oPres As Object)
....
End Sub
 
I should probably also say that i'm running this in an Access 2000 database
using Access 2007. there are other parts to the code, including some stuff
involving Microsoft Project, but i've only put the PowerPoint parts below.

thanks!
 
Back
Top