Please help! Can vba copy & paste excel chart to my.pptx slide?

[pedie]

Hi, I think i'm asking for BIG help here...

I have 3 sheets of excel workbook and 4 slides of PPT.
Can vba copy and paste/ replace the current picture [slide] that is in PPT?

Slide 1 has 2 pictures from sheet1.
Slide 2 has 1 pictures from sheet2.
Slide 3 has 3 pictures from sheet3.

Can someone pls instruct vba to do this for me?
file located in same folder:
E:\Personal_Files\LiveLessons\WeeklySH.pptx

Thank you soo much for helping me.

 

[pedie]

Hi, found something related but the code loops through and then paste the all chart to one slide...how can i correct that?

Thanks again.

[FONT=Courier New]Dim objPPT As Object[/FONT]
[FONT=Courier New]   Dim objPrs As Object[/FONT]
[FONT=Courier New]   Dim shtTemp As Worksheet[/FONT]
[FONT=Courier New]   Dim chtTemp As ChartObject[/FONT]
[FONT=Courier New]   Dim intSlide As Integer[/FONT]
 
[FONT=Courier New]   Set objPPT = CreateObject("Powerpoint.application")[/FONT]
[FONT=Courier New]   objPPT.Visible = True[/FONT]
[FONT=Courier New]   objPPT.Presentations.Open "E:\Personal_Files\LiveLessons\WeeklySH.pptx"[/FONT]
[FONT=Courier New]   objPPT.ActiveWindow.ViewType = 1 'ppViewSlide[/FONT]
 
[FONT=Courier New]   For Each shtTemp In ThisWorkbook.Worksheets[/FONT]
[FONT=Courier New]       For Each chtTemp In shtTemp.ChartObjects[/FONT]
[FONT=Courier New]           intSlide = intSlide + 1[/FONT]
[FONT=Courier New]           chtTemp.CopyPicture[/FONT]
[FONT=Courier New]           If intSlide > objPPT.Presentations(1).Slides.Count Then[/FONT]
[FONT=Courier New]               objPPT.ActiveWindow.View.GotoSlide Index:=objPPT.Presentations(1).Slides.Add(Index:=intSlide, Layout:=1).SlideIndex[/FONT]
[FONT=Courier New]           End If[/FONT]
[FONT=Courier New]           objPPT.ActiveWindow.View.Paste[/FONT]
[FONT=Courier New]       Next[/FONT]
[FONT=Courier New]   Next[/FONT]
[FONT=Courier New]   objPPT.Presentations(1).Save[/FONT]
[FONT=Courier New]   objPPT.Quit[/FONT]
 
[FONT=Courier New]   Set objPrs = Nothing[/FONT]
[FONT=Courier New]   Set objPPT = Nothing[/FONT]

 

[meldoc]

Hi Pedie

This is the site for all things chart, see the link

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

 

[pedie]

Brian, thanks alo....t for the link...it has lots of examples...
Reading it through but i think it won't be that easy to fix this thing myself.. but checking ....


If anyone can help then it still 'd be Great!

 

[pedie]

How do i make it select second or third slide?

Please help me out!

 

[meldoc]

Hi Pedie

This really isn't my thing, but try the below it works for me.

open Excel and create some charts, and with powerpoint open.
run the Sub ChartsAndTitlesToPresentation(), from Jon Peltier.
Don't forget to "Set a VBE reference to Microsoft PowerPoint Object Library"

 

[pedie]

I really do appriciate your help Brian..
Thank you very much!
'll try it out that way...
've been trying different ways myself


Have a Great Weekends!!!