Prev: Reverse Bar Chart
Next: Chart Styles
From: Sduduzo on 2 Feb 2010 17:09
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)

Example:
Server Name/Min/Max/Avg
server1/53/100/64
server2/52/99/63
server3/51/98/62

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.
Regards
From: Ed Ferrero on 3 Feb 2010 02:12
Hi Sduduzo,

Some of samples here may help
http://www.edferrero.com/ExcelCharts/tabid/102/Default.aspx
Look for 'multiple chart builder'

Ed Ferrero
www.edferrero.com
From: Herbert Seidenberg on 3 Feb 2010 13:36
Excel 2007 Table, Multiple Charts
With your edited macro.
With legend and category text.
http://c0444202.cdn.cloudfiles.rackspacecloud.com/02_03_10.xlsm
 | 
Pages: 1
Prev: Reverse Bar Chart
Next: Chart Styles