Export Sheet Charts to PNG files

[Evripos]

Hi and a Happy Thanksgiving to all.
I have a workbook where I have created eight individual sheet-charts. The naming of these sheet-charts starts with "Data_1" and ends with "Data_8". I would like to be able to export them in .PNG format and in the same directory as my Excel workbook file by using VBA code. I have found many websites and videos online where they show how to export chart objects from the same or different worksheets in the same workbook. Unfortunately, I am not looking for that. My charts are individual worksheet-charts in the same workbook.

Thank you for your help and effort.

Evripos

 

[Domenic]

Try the following code...

Sub ExportChartSheets()

    Dim destinationPath As String
    Dim index As Long
    
    destinationPath = ThisWorkbook.Path & "\"
    
    For index = 1 To 8
    
        ThisWorkbook.Charts("Data_" & index).Export _
            Filename:=destinationPath & "Data_" & index & ".png", _
            FilterName:="PNG"
        
    Next index

End Sub

Hope this helps!

 

[Evripos]

Domenic,
Hi. Your code worked flawlessly. Thank you..

 

[Domenic]

You're very welcome, glad I coud help.

Cheers!