Comments on: VBA Conditional Formatting of Charts by Value

By: Gjergji Spaho

Gjergji Spaho — Tue, 31 Jan 2012 09:15:09 +0000

Hi John,
there is no particular importance from the usage point of view.
I came across it while experimenting formatting the chart with the VBA code and it was the only way I found to reset it to the initial state.

I was wondering if there was a way to circumvent it.

thanks, for your help and reply
best regards, Gjergji

By: Jon Peltier

Jon Peltier — Mon, 30 Jan 2012 17:25:04 +0000

Gjergji -

That’s strange, somehow the Reset to Match Style must lock the chart formatting. I’ve never used this feature, since there’s no style I particularly want to match.

What are you using this for? Could you do the style matching manually, so the chart’s formatting isn’t locked?

By: Gjergji Spaho

Gjergji Spaho — Mon, 30 Jan 2012 16:53:51 +0000

Hi,
I found the article of great help.

However I’m having trouble with the Reset To Match Style command; once you have clicked over the chart then the VBA code does not affect the chart anymore.

The only workaround is to select manually a series, bring up the Formatting popup and change anything in there – then again the code works but only for the series I changed something.

I’m using Office 2010; any suggestion would be of a great help.

thanks, Gjergji

By: Julie

Julie — Tue, 10 Jan 2012 23:24:18 +0000

This has been a tremendous help! The only question I have is when I have two charts on the page it changes both of them – is there a way around this? (I’ve modified the stuff Vincent worked on with you).
Sub AdjustChartColor()
‘ Macro created on 2010-04-19 by Vincent
‘ with help from Jon Peltier: http://www.peltiertech.com

Dim cObject As ChartObject
Dim iPoint As Long
Dim vValues As Variant

For Each cObject In ActiveSheet.ChartObjects
With cObject.Chart.SeriesCollection(1)
vValues = .Values
For iPoint = 1 To UBound(vValues)
If vValues(iPoint) > 50 Then
.Points(iPoint).Fill.ForeColor.SchemeColor = 2
Else
.Points(iPoint).Fill.ForeColor.SchemeColor = 6
End If
Next
End With
Next
End Sub

By: Sekiya-Nanny

Sekiya-Nanny — Fri, 16 Dec 2011 05:44:50 +0000

Thank you so much for these fantastic ideas.

Sekiya-Nanny

By: Mikhail

Mikhail — Sun, 21 Aug 2011 06:32:48 +0000

Hi John,

I have similar question about formatting the graph. If you would help me with that I would greatly appreciate it.

I have a sheet that contains 3 columns and 20 rows. First column contains the text in each cell (company names). The second and third columns contain numbers related to the company name in the first column. I would like to assign each name its specific colour, so when I change the data, the VB recognizes the company name and changes the colour of the first and second points (which are in the 1st and 2nd columns) on the graph.

Could you, please point me into the right direction?

Thank you in advance!