Macro to copy a excel graph to power point

[paramesh.n]

Hi, How to write a macro to Export an excel graph as an object to powerpoint slide?

 

[Andrew Poulsom]

Look here:

http://peltiertech.com/Excel/XL_PPT.html#chartppt

 

[paramesh.n]

Hey Andrew,

Thanks for your reply.

However the macro enables me to copy the chart only as a picture. I want to copy the chart as object and copy other ranges as picture.

Somehow I figured the way to copy the chart as object but that will change the ranges in the code to object (The text will be disappeared).

I want the charts to be displayed as object and ranges as picture.

The code:

'Put the chart-1 in slide
SlideIndex = sldno1
Set oChart = ActiveSheet.ChartObjects("Chart 1035")
ActiveSheet.ChartObjects("Chart 1035").Copy
'oChart.CopyPicture xlScreen


oPPT.ActiveWindow.View.GotoSlide (sldno1)

Set oSlide = oPre.Slides _
(oPPT.ActiveWindow.Selection.SlideRange.SlideIndex)

oSlide.Shapes.PasteSpecial

'Put the title-1 in slide
Worksheets("Patients Tested for KRAS").Range("d65521").Select
Selection.Copy
oPPT.ActiveWindow.View.GotoSlide (sldno1)
oSlide.Shapes.Paste.Select



Can you please help me in this regard.

Thanks
Paramesh

 

[Andrew Poulsom]

Look here:

http://peltiertech.com/Excel/XL_PPT.html#rangeppt