Power point already open

[wallacej]

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

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

[westconn1]

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

Set ppObject = New PowerPoint.Application

leave out

rgds pete

[manavo11]

Take out the ppObject.Presentations.Add line?

[manavo11]

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...

[westconn1]

change if from "new"?

Set ppObject = PowerPoint.Application

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

[manavo11]

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

[wallacej]

cheers for that, worked by removing the line

ppObject.Presentations.Add

Thanks

[manavo11]

cheers for that, worked by removing the line

ppObject.Presentations.Add

Thanks

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