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

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

objPPSlide.Shapes.Paste


Thanks, Tom.

After working on that earlier, I went out for a bike ride, and during that,
was thinking I probably needed to do something with the shapes property of
the slide object.

I'm not very familiar at all with the PowerPoint objects.

I see that that pastes the graph in the upper left... makes sense... I think
I'll be alright with the code to reposition it.

Thanks for your help!

Mark