title: Paste Excel Chart into Powerpoint using VBA
body: <p>I'm trying to create an excel macro that copies charts displayed on an excel sheet, and pastes them (paste special) into a PowerPoint. The problem I'm having is how do I paste each chart on a different slide? I do not know the syntax at all.. </p>
  
  <p>This is what I have so far (it works but it only pastes to the first sheet):</p>
  
  <pre><code>Sub graphics3()
  
  Sheets("Chart1").Select
  ActiveSheet.ChartObjects("Chart1").Activate
  ActiveChart.ChartArea.Copy
  Sheets("Graphs").Select
  range("A1").Select
  ActiveSheet.Paste
       With ActiveChart.Parent
       .Height = 425 ' resize
       .Width = 645  ' resize
       .Top = 1    ' reposition
       .Left = 1   ' reposition
   End With
  
  Dim PPT As Object
  Set PPT = CreateObject("PowerPoint.Application")
  PPT.Visible = True
  PPT.Presentations.Open Filename:="locationwherepptxis"
  
  Set PPApp = GetObject("Powerpoint.Application")
  Set PPPres = PPApp.activepresentation
  Set PPSlide = PPPres.slides _
      (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
  
  ' Copy chart as a picture
  ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, _
      Format:=xlPicture
  
  ' Paste chart
  PPSlide.Shapes.Paste.Select
  
  ' Align pasted chart
  PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
  </code></pre>