VBA - Save Charts with Chart Title as Name

[smitpau]

Hi,

I'd like to be able to save all Charts in a sheet with their Chart Title as their name, for some reason this is proving more difficult than expected.

I believe it's the Title = part of the code that needs to be changed.

Any help would be appreciated.

Code:

Sub ExportSheetCharts()

'Create a variable to hold the path and name of image
Dim cht As ChartObject
Dim strUserName As String
Dim Title As String
strUserName = Application.UserName
Title = ChartObject.ChartTitle

ActiveSheet.ChartObjects.Select

'Export the chart
For Each cht In ActiveSheet.ChartObjects
cht.Chart.Export "C:\Users\" & strUserName & "\Pictures\" & Title & x & ".png"
x = x + 1
Next cht

End Sub

Thanks,

 

[RoryA]

ChartObjects don't have a ChartTitle property, and you haven't specified which chartobject you were referring to in your code. All you should need is:

Sub ExportSheetCharts()

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

strUserName = Application.UserName


'Export the chart
           For Each cht In ActiveSheet.ChartObjects
           cht.Chart.Export "C:\Users\" & strUserName & "\Pictures\" & cht.Chart.ChartTitle & x & ".png"
           x = x + 1
       Next cht

End Sub

 

[smitpau]

Thanks for responding RoryA when I try this it says "Object doesn't support this property or method" unfortunately.

 

[RoryA]

Try using cht.Chart.ChartTitle.Text rather than cht.Chart.ChartTitle (assuming all your charts actually have a title)

 

[smitpau]

Great thanks the cht.Chart.ChartTitle.Text line worked!