Choosing Open Powerpoint Presentation

[Barb Reinhardt]

I'm running this code out of Excel and am having difficulty with the
following line

MyFileName = "BarbsFile.ppt"

'This doesn't work, and used to
On Error Resume Next
Set myPPT = PPTApp.Presentations(myFileName)
On Error GoTo 0

'This does work
For each myPPT in PPTApp.Presentations
if myPPT.Name = myfilename then
Set myPPT1 = myPPT
Exit for
end if
next myPPT

Thanks,
Barb Reinhardt

 

[Matti Vuori]

I'm running this code out of Excel and am having difficulty with the
following line

MyFileName = "BarbsFile.ppt"

'This doesn't work, and used to

I don't believe the code has ever worked, because if it had, PPT would have
harmonized the usage of uppercase letters in myfilename, MyFileName and
myFileName...