title: Positioning Excel multiple charts on multiple PPT slides
body: <p>This is my first time asking a question here, as you guys and gals are so good that I've never had to until now! </p>
  
  <p>I have the following VBA code, which successfully pulls charts from a spreadsheet, and pastes them onto two newly created PPT slides. The only problem however, is that this code ONLY aligns the chart on the second slide, and doesn't affect the chart on the first slide. 
  I can't for the life of me figure out what's going on her, and would greatly appreciate any input!</p>
  
  <pre><code>Option Explicit
  Sub MakeSlides()
  Dim myData As Excel.Range
  Dim sheet2 As Excel.Worksheet
  Dim objPPT As Object
  Set sheet2 = ActiveWorkbook.Sheets("Sheet2")
  Set myData = sheet2.Range("A2:B43")
  Set objPPT = CreateObject("Powerpoint.application")
  myData.Copy
  Dim pptApp As New PowerPoint.Application
  pptApp.Visible = True
  Dim pres As PowerPoint.Presentation
  Set pres = pptApp.Presentations.Add
  Dim firstslide As PowerPoint.Slide
  Set firstslide = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
  Dim myChart As Excel.ChartObject
  Set myChart = Sheet1.ChartObjects(1)
  myChart.Copy
  firstslide.Shapes.Paste.Select
  ' Align pasted chart
  pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
  Set sheet2 = ActiveWorkbook.Sheets("Sheet2")
  Set myData = sheet2.Range("A45:B69")
  myData.Copy
  pptApp.Visible = True
  Dim secondslide As PowerPoint.Slide
  Set secondslide = pres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
  Set myChart = Sheet1.ChartObjects(2)
  myChart.Copy
  secondslide.Shapes.Paste
  ' Align pasted chart
  pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
  pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
  </code></pre>
  
  <p>End Sub</p>