Writing Excel VBA (Office 2010) code to launch an existing PPT template and paste in an Excel generated chart as a metafile. Can't get the pasting to work. Here's what I have so far.

Dim PPT As PowerPoint.Application
Dim pptPres1 As PowerPoint.Presentation


Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open Filename:="C:\template.pptx"
Set pptPres1 = PPT.ActivePresentation


'copy first bar chart from Excel
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy


Appreciate any help. Thanks.