I would try

Sub sbPowerPoint()

'create a PowerPoint session

Set objPP = CreateObject("PowerPoint.Application")
objPP.Visible = True
objPP.Presentations.Add WithWindow:=msoTrue
objPP.Presentations(1).Slides.Add Index:=1, Layout:=1

Set objPPSlide = objPP.Presentations(1).Slides(1)


chtData.CopyPicture
objPPSlide.Shapes.Paste
End Sub

--
Regards,
Tom Ogilvy


"mark" wrote in message
...
Hello.

I'm trying to input, process, and graph some data points from in a text
file, and then paste the resultant graph into a new, blank, PowerPoint
presentation.

I have all of that working except for the very lats step, pasting the
chart
to PowerPoint.

I'm trying to do this all from the VBA code stream in Excel.

The module that handles the creation of the PowerPoint instance and new
first slide is this:
*************
Sub sbPowerPoint()

'create a PowerPoint session

Set objPP = CreateObject("PowerPoint.Application")
objPP.Visible = True
objPP.Presentations.Add WithWindow:=msoTrue
objPP.Presentations(1).Slides.Add Index:=1, Layout:=1

Set objPPSlide = objPP.Presentations(1).Slides(1)


chtData.CopyPicture

End Sub
*************

In PowerPoint, the recorded code says that the past method would be:

ActiveWindow.View.Paste

I've tried that, and several other edited attempts using my objPP and
objPPSlide objects, to get that to paste, but havent found one that works.

Can someone explain to me what command it is that I need to use,
syntactically?

Thanks,
Mark