VBA code to copy data into powerpoint 2010 chart from excel 2010?

[josephjcota]

VBA code to copy data into powerpoint 2010 chart from excel 2010?
I am trying to automate the process of populating the charts in the powerpoint (office 2010). Can anybody please help with the VBA code to

Copy data in excel > select the template chart in the powerpoint > open the data sheet > paste the copied data and close>loop

I am using office 2010, so please provide codes that work in office 2010.

I initially tried to create charts in excel and paste it in the powerpoint with the link and update the link whenever we get new data. However, after pasting couple of charts it becomes very slow. Since I have more than 200 charts, updating all the charts using VBA is my only option.

 

[TG2812]

Sorry guys for starting up that conversation again but i'm a beginner and trying to sort of adapt the codes given above. But it doesn't work and i don't know why. Any inputs is more than welcome =)
here's the code:

----------------------------------------------------
Sub PWP()

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim newPP As PowerPoint.Application
Set newPP = CreateObject("PowerPoint.Application")
Dim newPres As PowerPoint.Presentation
Set newPres = newPP.Presentations.Add
Set newPres = newPP.ActivePresentation
Dim slide As PowerPoint.slide
Dim chart As Excel.chart
Dim slide_counter As Long




newPP.Visible = True
newPP.ActiveWindow.ViewType = ppViewSlide


slide_counter = 0
For Each chart In ActiveWorkbook.Sheets("Dashboard").ChartObjects
Set slide = newPres.Slides.Add(slide_counter + 1, 12)
newPP.ActiveWindow.View.GotoSlide slide.SlideIndex

With chart
objchart.ChartArea.Copy
slide.Shapes.PasteSpecial(link = msoCTrue).Select

newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
End With

slide_counter = slide_counter + 1
Next


Set chart = Nothing
Set slide = Nothing
Set newPres = Nothing
Set newPP = Nothing


Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

 

[jjbungles]

Sorry guys for starting up that conversation again but i'm a beginner and trying to sort of adapt the codes given above. But it doesn't work and i don't know why. Any inputs is more than welcome =)
here's the code:

----------------------------------------------------
Sub PWP()

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim newPP As PowerPoint.Application
Set newPP = CreateObject("PowerPoint.Application")
Dim newPres As PowerPoint.Presentation
Set newPres = newPP.Presentations.Add
Set newPres = newPP.ActivePresentation
Dim slide As PowerPoint.slide
Dim chart As Excel.chart
Dim slide_counter As Long




newPP.Visible = True
newPP.ActiveWindow.ViewType = ppViewSlide


slide_counter = 0
For Each chart In ActiveWorkbook.Sheets("Dashboard").ChartObjects
Set slide = newPres.Slides.Add(slide_counter + 1, 12)
newPP.ActiveWindow.View.GotoSlide slide.SlideIndex

With chart
objchart.ChartArea.Copy
slide.Shapes.PasteSpecial(link = msoCTrue).Select

newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
End With

slide_counter = slide_counter + 1
Next


Set chart = Nothing
Set slide = Nothing
Set newPres = Nothing
Set newPP = Nothing


Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub

what error are you getting?

 

[TG2812]

I get a "type mismatch error" right after the loop initializes...

 

[Worf]

I get a "type mismatch error" right after the loop initializes...

On exactly what line?

 

[jjbungles]

OK try this....

Option Explicit
Sub PWP()

 Application.ScreenUpdating = False
 Application.DisplayAlerts = False


 Dim newPP As PowerPoint.Application
 Set newPP = CreateObject("PowerPoint.Application")
 Dim newPres As PowerPoint.Presentation
 Set newPres = newPP.Presentations.Add
 Set newPres = newPP.ActivePresentation
 Dim slide As PowerPoint.slide
 Dim chart As Object
 Dim slide_counter As Long




 newPP.Visible = True
 newPP.ActiveWindow.ViewType = ppViewSlide


 slide_counter = 0
  For Each chart In ActiveWorkbook.Sheets("Dashboard").ChartObjects
 Set slide = newPres.Slides.Add(slide_counter + 1, 12)
 newPP.ActiveWindow.View.GotoSlide slide.SlideIndex

 With chart
 chart.CopyPicture Appearance:=xlScreen, _
        Format:=xlPicture
 'chart.ChartArea.Copy
 slide.Shapes.Paste.Select

 newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
 newPP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
 End With

 slide_counter = slide_counter + 1
 Next


 Set chart = Nothing
 Set slide = Nothing
 Set newPres = Nothing
 Set newPP = Nothing


 Application.ScreenUpdating = True
 Application.DisplayAlerts = True


 End Sub

 

[TG2812]

Thanks for your prompt replies guys but i found where the mistake is located =)). Thanks again