Power point already open

I have the following code which opens PowerPoint, creates a presentation, adds a slide and then inserts an image onto the slide:

VB Code:

Private Sub openPowerPoint()
    Dim ppObject As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
    Dim picLocation As String
    
    'Open and show PowerPoint
    Set ppObject = New PowerPoint.Application
    ppObject.Visible = True
    
    'Add presentation to PowerPoint
    ppObject.Presentations.Add
    Set ppPres = ppObject.Presentations.Item(1)
   
    'Add a blank slide to PowerPoint presentation
    ppPres.Slides.Add 1, ppLayoutBlank
    ppPres.Slides(1).Select
    
    'Insert picture
    picLocation = txtToInsert.Text
    'size needs to be decided
    ppPres.Slides(1).Shapes.AddPicture(FileName:=picLocation, LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0, Width:=170, Height:=230).Select
 
End Sub

Can anybody help me to perform a similar task but with powerpoint already open?
The code would just have to create a new slide and then insert the image.

Thanks

i would believe that if power point is already open the only change you would have to make is

Quote:

---

Set ppObject = New PowerPoint.Application

---

leave out

rgds pete

Take out the ppObject.Presentations.Add line? :)

Quote:

---

Originally Posted by westconn1

i would believe that if power point is already open the only change you would have to make is


leave out

rgds pete

---

Can't do that... You'll get an "Object variable or With block variable not set" error...

change if from "new"?

Set ppObject = PowerPoint.Application

or does it even matter if it is already open?
p.

Quote:

---

Originally Posted by westconn1

change if from "new"?

Set ppObject = PowerPoint.Application

or does it even matter if it is already open?
p.

---

Then you get an "ActiveX component can't create object" error :)

cheers for that, worked by removing the line

VB Code:

ppObject.Presentations.Add

Thanks

Quote:

---

Originally Posted by wallacej

cheers for that, worked by removing the line

VB Code:

ppObject.Presentations.Add

Thanks

---

You're welcome. Just to point out that if PowerPoint isn't open though, it will cause an error :)