Save Workbook Chart as Images

[smitpau]

Hi,

I'd like to be able to save all the workbook charts as images.

The folder structure would ideally be like this:

C:\Users\Pictures\Workbook Name\Sheet Name\Chart Title Name

Some code is below which I've started on but am a bit stuck.

Any help would be appreciated thanks.

Sub ExportSheetCharts()

'Create a variable to hold the path and name of image
Dim CurrentSheet As Worksheet
Dim cht As ChartObject
Dim strUserName As String
Dim subfolder As String
Dim strFileFullName As String


strUserName = Application.UserName
subfolder = ActiveSheet.Name
strFileFullName = ThisWorkbook.FullName
 
If Len(Dir("C:\Users\" & strUserName & "\Pictures\" & strFileFullName & "\")) = 0 Then
 MkDir ("C:\Users\" & strUserName & "\Pictures\" & strFileFullName & "\")
End If


'Export the chart
           For Each sht In ActiveWorkbook.Worksheets
           For Each cht In ActiveSheet.ChartObjects
           cht.Chart.Export "C:\Users\" & strUserName & "\Pictures\" & strFileFullName & "\" & subfolder & cht.Chart.ChartTitle.Text & x & ".jpg"
           x = x + 1
       Next cht
       Next sht

End Sub

 

[rlv01]

I don't see anything immediately and obviously wrong with your code. Why don't you explain what you mean by "but am a bit stuck"?

 

[smitpau]

Sure there are a couple of things for some reason after the Workbook named directory is created it then has an error if it's run.

Also creating separate folders for each tab name is quite tricky as I'm not sure where to put that in the code, and it would also have to recognise if those folders are already created it doesn't need to create them again.

 

[rlv01]

A good rule of thumb when asking for help with code is: Don't make people guess. There are many, many errors that excel is capable of generating so avoid general statements like "it has an error". If you get an error, describe which specific error you are getting. All runtime errors have a number and a description. If the error occurs at a specific line of code, tell us which line of code.

 

[smitpau]

Okay understand your point, I'll provide more detail tomorrow morning.