List Charts in a Worksheet

P

Phil Hageman

Does anyone have a macro that will list all charts and their titles in a worksheet? Something like
Chart22 Financial Resut
Chart23 Operational Result
Etc

Thanks
Phil
 
P

Phil Hageman

I found this in old notes, and it works - now I need to add the chart title behind the chart name

Sub ListCharts(
'Screen prints a list of charts in a worksheet
Dim Msg As Strin
Dim ChtObj As ChartObjec
Msg = ActiveSheet.Name & vbCrL
For Each ChtObj In ActiveSheet.ChartObject
Msg = Msg & vbCrLf & ChtObj.Name '& ChtObj.ChartTitl
Nex
MsgBox Ms
End Sub
 
Top