troubleshooting Question

Error when calling PowerPoint from Access

Avatar of millikens
millikens asked on
Microsoft AccessMicrosoft PowerPoint
2 Comments1 Solution204 ViewsLast Modified:
At the line of code [obj_PPointApp.Visible = True] that makes Powerpoint visible, the following error is reported :

"Error Number : -2147417848 - Automation eroor - The object invoked has disconnected from its clients"

Any suggestions on how to overcome this issue.
'   Local variable definition
Dim obj_PPointApp As PowerPoint.Application
Dim obj_PPointOpen As Boolean
 
On Error GoTo OpenPPointPres_Err
    
    '     Set new occurrance of PPoint
    Set obj_PPointApp = New PowerPoint.Application
    
    '     Test for outlook already open
    obj_PPointOpen = True
    Set obj_PPointApp = GetObject(, "PowerPoint.Application")
    
    '     If applicaton not open, then create application
    If obj_PPointApp Is Nothing Then
     Set obj_PPointApp = CreateObject("PowerPoint.Application")
          obj_PPointOpen = False
    End If
    
    '     Display application and then open document
    obj_PPointApp.Visible = True
    obj_PPointApp.Presentations.Open strDocName
ASKER CERTIFIED SOLUTION
harfang

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros