By: James

James — Thu, 28 Jul 2011 07:53:00 +0000

Jon, you’re a legend, thanks. That is deffinately the way to go with this.

By: Jon Peltier

Jon Peltier — Wed, 27 Jul 2011 22:17:52 +0000

James -

Couldn’t you define the series data in each chart to use the named ranges in the worksheet, thus avoiding the deletion and creation of all those charts? For example, define Is_Unit_Cost_X and Is_Unit_Cost_Y for the last chart listed in your code, select the chart, go to the Select Data dialog, and instead of cell addresses for X and Y, enter these names. This will remove 98% of the code, probably more, because the last bit looks like it’s just positioning the charts, which wouldn’t have to be done with the existing charts.

By: James

James — Wed, 27 Jul 2011 14:44:15 +0000

Jon – firstly thankyou so much this site of yours helps me so much it ‘s untrue – everyone at work thinks I’m some sort of excel expert- and it’s mostly because of your simple easy to follow explanations. however I have run into some trouble that has me stumped.
I need some help as my VB is more basic than most. I have a page of graphs (52 of them to be honest – 26 line graphs and 26 bar graphs of the same data – my boos likes a choice!) I was having to update them on a monthly basis which was becomming painful as you can no doubt imagine. So I wrote a little macro to create a new lot of graphs based on dynamic ranges and another to clear out the previous graphs at the touch of a button – great! it worked almost first time too! – then I added a little bit more to get the line graphs and bar graphs to conform to the traffic light format the graphs display – a simple red, amber, green lines / bars and a grey for N/A’s. I used a custom templates and it seemed fine till I made it live and let others use it – now it seems to have switched axies on most of the graphs and is duplicating the first 2 graphs (both of which are always fine and formatted correctly, the duplicates and all the following graphs have their axies’s switched and I have no idea why. The duplication seems to be slightly perverse as well when I simply moved the graph titles to compensate for the duplicates it duplicates 3 times so my headings are still off – is it my code or is my computer just trying to wind me up?

See code below you may recognise the last bit for ordering the graphs it’s one of yours – thanks again.

Any ideas please

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
“c:\excel\templates\metrics excel graph templates\bar default.crtx” _
)
ActiveChart.SetSourceData Source:=Sheets(“data sheet”).Range(“Are_component_requirements_cht”)

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
“c:\excel\templates\metrics excel graph templates\default.crtx” _
)
ActiveChart.SetSourceData Source:=Sheets(“data sheet”).Range(“Is_there_an_overall_cht”)
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
“c:\excel\templates\metrics excel graph templates\bar default.crtx” _
)
ActiveChart.SetSourceData Source:=Sheets(“data sheet”).Range(“Is_there_an_overall_cht”)

Dim iChart As Long
Dim nCharts As Long
Dim dTop As Double
Dim dLeft As Double
Dim dHeight As Double
Dim dWidth As Double
Dim nColumns As Long
dTop = 75 ‘ top of first row of charts
dLeft = 100 ‘ left of first column of charts
dHeight = 225 ‘ height of all charts
dWidth = 375 ‘ width of all charts
nColumns = 2 ‘ number of columns of charts
nCharts = ActiveSheet.ChartObjects.Count
For iChart = 1 To nCharts
With ActiveSheet.ChartObjects(iChart)
.Height = dHeight
.Width = dWidth
.Top = dTop + Int((iChart – 1) / nColumns) * dHeight
.Left = dLeft + ((iChart – 1) Mod nColumns) * dWidth
End With
Next

End Sub

By: Minder bling-bling in Microsoft Excel Grafieken : into business intelligence

Minder bling-bling in Microsoft Excel Grafieken : into business intelligence — Tue, 04 Jan 2011 16:05:54 +0000

[...] van Office eenvoudiger zijn om professionele grafieken te maken tot die tijd is het handig om de 9 stappen van John Peltier te gebruiken om grafieken van onnodige opsmuk te bevrijden. March 03 [...]

By: Minder bling-bling in Microsoft Excel Grafieken : into business intelligence

Minder bling-bling in Microsoft Excel Grafieken : into business intelligence — Tue, 03 Mar 2009 20:19:42 +0000

By: Del

Del — Mon, 05 Jan 2009 12:49:56 +0000

Definitelly, it’s a great example for those improve step by step. good job!

Comments on: 9 Steps to Simpler Chart Formatting

By: James

By: Jon Peltier

By: James

By: Minder bling-bling in Microsoft Excel Grafieken : into business intelligence

By: Minder bling-bling in Microsoft Excel Grafieken : into business intelligence

By: Del