(Solved) – Chart sheet copy and pasted to power point


Hello I am trying to get many chart sheets copied and pasted into PowerPoint with each chart sheet having it’s own slide.

This code will only take charts in a work sheet not chart sheets.

I found most of the code online and modified it so that it paste the chart as a png image into the slide.
How can I change it so I can loop through all the chart sheets and get them to past into excel. Also I would like to start with the left chart and loop from left to right.

 Sub ExportChartsToPowerPoint_MultipleWorksheets()


    ' This script will loop through all the worksheets in the Active Workbook

    ' and copy all the Charts to a new PowerPoint presentation that we create.

    ' Each chart will get their own individual slide and will be placed in the center of it.

    'Declare PowerPoint Variables

    Dim PPTApp As PowerPoint.Application

    Dim pptPres As PowerPoint.Presentation

    Dim PPTSlide As PowerPoint.Slide

    Dim PPTShape As PowerPoint.Shape

    Dim SldIndex As Integer

    'Declare Excel Variables

    Dim Chrt As ChartObject
    Dim Chart As Chart
    Dim WrkSht As Worksheet

    'Create new PowerPoint Application & make it visible.

    Set PPTApp = New PowerPoint.Application

        PPTApp.Visible = True

    'Create new presentation in the PowerPoint application.

    Set pptPres = PPTApp.Presentations.Add

    'Create an index handler for slide creation.

    SldIndex = 1

    For Each WrkSht In Worksheets

        'Loop through all the CHARTOBJECTS in the ACTIVESHEET.

        For Each Chrt In WrkSht.ChartObjects

            'Copy the Chart


            'Create a new slide in the Presentation, set the layout to blank, and paste chart on to the newly added slide.

            Set PPTSlide = pptPres.Slides.Add(SldIndex, ppLayoutBlank)

                PPTSlide.Shapes.PasteSpecial DataType:=ppPastePNG

            'Increment index so that way we paste the next chart on the new slide that is added.

            SldIndex = SldIndex   1

        Next Chrt

      Next WrkSht
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *