title: Export Excel Charts as Images using Powerpoint VBA
body: <p>I have the below code that I have written to export "Chart1" from an Excel sheet called "Sheet1" to a new slide in a created instance of powerpoint:</p>
  
  <pre><code>Sub ChartsToPowerPoint()
  
      Dim pptApp As PowerPoint.Application
      Dim pptPres As PowerPoint.Presentation
      Dim pptSlide As PowerPoint.Slide
      Dim pptSlideCount As Integer
      Dim ws As Worksheet
      Dim intChNum As Integer
      Dim objCh As Object
  
      'Open PowerPoint and create a new presentation.
      Set pptApp = New PowerPoint.Application
      Set pptPres = pptApp.Presentations.Add
  
      'Set the chart and copy it to a new ppt slide
      Set objChart = Worksheets("Sheet1").ChartObjects("Chart 1").Chart
      objChart.ChartArea.Copy
      Set pptSlide = pptPres.Slides.Add(pptSlideCount + 1, ppLayoutBlank)
      pptSlide.Shapes.PasteSpecial ppPasteJPG
  
      'Format the picture size/position.
      For j = 1 To pptSlide.Shapes.Count
          With pptSlide.Shapes(j)
              If .Type = msoPicture Then
                  .Top = 87
                  .Left = 33
                  .Height = 422
                  .Width = 646
              End If
          End With
      Next j
  
      pptApp.Visible = True
  
      Set pptSlide = Nothing
      Set pptPres = Nothing
      Set pptApp = Nothing
  
  End Sub
  </code></pre>
  
  <p>The reason I am not using <code>.Chart.Export</code> method is because of the poor quality output that I am getting when using Excel 2007 SP3.</p>
  
  <p>What I am looking to do next is to save the copied image from PowerPoint as a .png and then close the powerpoint presentation without saving changes.</p>
  
  <p>Please assist.</p>