I
ibeetb
I am trying to determine if an object variable (application) exists. If it
doesn't, I want to CreateObject, if it does, I want to GetObject....but I
keep gettting the object variable doesn't exist error whenever the code gets
to the "If ppApp is Nothing" part. Please see below.....
Dim ppApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
If ppApp Is Nothing Then
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = msoTrue
.WindowState = ppWindowMaximized
Set PPPres = ppApp.Presentations.Open("C:\Documents and
Settings\My Documents\IBSTest.ppt")
End With
Else
Set ppApp = GetObject(, "Powerpoint.Application")
End If
doesn't, I want to CreateObject, if it does, I want to GetObject....but I
keep gettting the object variable doesn't exist error whenever the code gets
to the "If ppApp is Nothing" part. Please see below.....
Dim ppApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
If ppApp Is Nothing Then
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = msoTrue
.WindowState = ppWindowMaximized
Set PPPres = ppApp.Presentations.Open("C:\Documents and
Settings\My Documents\IBSTest.ppt")
End With
Else
Set ppApp = GetObject(, "Powerpoint.Application")
End If