Find number of graphs in a workbook

[dave3009]

Mornin' Folks

I need a wee bit of help please

How can I adjust this code I took from

http://processtrends.com/pg_chart_vba.htm

to simply count the total number of charts in a workbook. I don't need chart size and all that stuff just an integer returned with the total number

Cheers

Public Sub chart_list()
Dim chtobj As ChartObject
Dim Msg As String
Dim n As Integer
n = ActiveSheet.ChartObjects.Count
Msg = "Chart List for Sheet " & vbTab & ActiveSheet.Name & vbTab & "No charts = " & n & vbCrLf & vbCrLf
Msg = Msg & "Name " & vbTab & vbTab & "Index" & vbTab & "Top Pos" & vbTab & "Left Pos " & vbTab & "Width " & vbTab & "Height" & vbCrLf
For Each chtobj In ActiveSheet.ChartObjects
cht_width = chtobj.Width
cht_height = chtobj.Height
Top_Position = chtobj.Top
Left_Position = chtobj.Left
Msg = Msg & chtobj.Name & vbTab & vbTab & chtobj.Index & vbTab & Top_Position & vbTab & Left_Position & vbTab & cht_width & vbTab & cht_height & vbCrLf
Next chtobj
out = MsgBox(Msg, , "Chart List")
End Sub

Dave

 

[VoG]

Try

Sub countcharts()
Dim s As Worksheet, n As Integer, m As Integer
m = Charts.Count
n = 0
For Each s In Worksheets
    n = n + s.ChartObjects.Count
Next s
MsgBox m & " chart sheets" & vbCrLf & n & " embedded charts"
End Sub

 

[VoG]

Dave

Just curious - did it work

 

[dave3009]

VoG II

Worked a charm, I tried it a bit later on so didn't get a chance to reply.

Genius work, Thanks

I must revisit my book, I went on a course (Non-Excel/IT related) and bought a VBA book to fill out my evenings (Didn't fancy lashing it up at the bar every night). My laptop packed in on Day 1 so never really got using the code I read about. I'll get there

Thanks for your help, I really appreciate it. Ends up the book I was presented with has 460 Charts which could easily be drafted down to 30 or so.

Cheers


Dave