Charting multiple graphs from a list on another worksheet



Hi all

I am battling with graphs/ charts in Excel 2007. I am basically looking for
a way that I can create multiple graphs based on a sheet with a bunch of
simple data.

What I have is a sheet that contains a list of servers with 3 datapoints
(Min, Max, Avg)

Server Name/Min/Max/Avg

and this list caries on for up to 200 servers. I need to create graphs per
server in an automated way. I have tried this script but it does not
represent the data labels correctly. It does not show me the Min/Max/Avg as a
legend on my graphs...or possibly label each bar correctly.

Sub CreateBarCharts()
Dim ws As Worksheet, cel As Range

Set ws = ActiveSheet
With ws
For Each cel In .Range(.[B9], .Cells(.Rows.Count, "B").End(xlUp))
With Charts.Add
.ChartType = xl3DColumnClustered
.SetSourceData Source:=cel.Resize(1, 8), PlotBy:=xlRows
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = cel.Value
With .Axes(xlCategory, xlPrimary)
.HasTitle = True
.AxisTitle.Characters.Text = ws.[B9]
End With
End With
Next cel
End With

End Sub

Please any help will be appreciated.


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question