A series of Graphs to PNG or JPG

[Jornyboy]

Good Morning!

Hopefully someone will be able to help me with this problem.

I have a large spreadsheet with a series of graphs (all named. Ie. Medical_Graph, Frequency_Graph)

The question I have - is is it possible to export the graphs as individual files to a specified location as JPG or PNG files. ie.

Medical_graph object becomes C:\graphs\Medical_Graph.jpg

Thanks in advance for any assistance!

Jorn

 

[Case_Germany]

Hi,

try this - "Sheet1" is the code name of the worksheet. Adjust path:

Option Explicit
Const strPath As String = "C:\Temp\"
Const strEx As String = ".JPG"
Sub Main()
    Dim chtChart As ChartObject
    On Error GoTo Fin
    For Each chtChart In Sheet1.ChartObjects
        With chtChart
            .Chart.Export strPath & .Name & strEx, Right(strEx, 3)
        End With
    Next chtChart
Fin:
    If Err.Number <> 0 Then MsgBox "Error: " & _
        Err.Number & " " & Err.Description
End Sub