View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ibeetb ibeetb is offline
external usenet poster
 
Posts: 67
Default Object Variable question

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