Sub ChartExporter() Dim PowerPointApp As Object Dim myPresentation As Object Dim mySlide As Object Dim myShape As Object Dim i As Integer If PowerPointApp Is No