open powerpoint file

[raph_baril]

I want to open a power point file with the following code but it's always
giving me an error on the last line. Somebody knows?

Sub openppt()

Dim Brocoli As Object
Dim Potato As Object
Dim carot As String

carot = "C:\random folder\open me.ppt"

Set Brocoli = CreateObject("powerpoint.Application")
Brocoli.Visible = True

Set Potato = Brocoli.documents.Open(Filename:=carot)

End Sub

 

[Chip Pearson]

What error message do you receive?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


message
news:[email protected]...

 

[Chip Pearson]

The PowerPoint object model doesn't have a Documents object. Did
you just make it up? Try

Set Potato = Brocoli.Presentations.Open(filename:=carot)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




message
news:[email protected]...

 

[raph_baril]

Yes I made it up, it works perfectly when you replace "document" by
"presentations"
Thanks!!!