open ppt from excel

[jasman]

Hi. I have an excel workseet with an image. I need excel to open a new powerpoint show and copy that image into it when i click a button?

any help thanks

 

[healey21]

You need to set the Reference to use your version of PowerPoint in the VBA screen of your excel spreadsheet. As your asking I hope you can get into the VBA screen (Use Alt + F11) then go to the Tools Menu and References then scroll down the list until you find Microsoft PowerPoint (XX) Object Library and tick the box, XX is the version number, then you could use somthing like this:

Go to the Insert Menu and select Module copy this code into it, and it will open powerpoint and add a presentation plus one slide. You will have to add the code to copy the object in Excel first then paste into your PowerPoint presentation.

Sub CopyToPowerPoint()
Dim pptApp As PowerPoint.Application
Dim pres1 As PowerPoint.Presentation
Dim Slide1 As PowerPoint.Slide
Set pptApp = CreateObject("PowerPoint.Application")
With pptApp
.Visible = True
Set pres1 = pptApp.Presentations.Add
End With
Set Slide1 = pres1.Slides.Add(1, ppLayoutText)
End Sub