Dear all,
I hit error message "filename or class name not found during automation operation" in the following codes in the Getobject().. any idea what i have miss?
FYI, i am using microsoft powerpoint 11.0 object library
Function code1() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PresentationFileName As Variant Dim SlideCount As Long Dim iCht As Integer PresentationFileName = ThisWorkbook.Path + "\dashboard_" & Format(Date, "ddmmyy" & ".ppt") '''''''''''''''''''''''''''''hit error here.... Set PPApp = GetObject(PresentationFileName, "Powerpoint.Application") .......
Just guessing (I've never automated PPT) that PresentationFileName should just be "xxx.ppt" (no path).
Microsoft MVP - Excel
Entia non sunt multiplicanda sine necessitate
thanks.. i made a mistake.
should be as following
no need to fill up anything.Set PPApp = GetObject(, "Powerpoint.Application")
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks