Code mod to add name
For Each chtob In ActiveSheet.ChartObjects
msg = msg & vbCrLf & _
chtob.Name & " : " & _
chtob.Chart.ChartTitle.Caption
Next
Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
This code puts a neat box on screen with the name of the
worksheet and a list of the charts - by name:
Sub ListCharts()
Dim msg As String
Dim chtob As ChartObject
msg = ActiveSheet.Name & vbCrLf
For Each chtob In ActiveSheet.ChartObjects
msg = msg & vbCrLf & chtob.Name
Next
MsgBox msg
End Sub
What modification would put the chart title after the
chart name?
Thanks,Phil
.
|