VBA for chart function

[Marty Nix]

I got a very helpful response the last time I asked this question, but after I received it I realized I had asked the wrong question. At least I was able to learn from my mistake.

I'm trying to write a sequence in a macro that will find a certain TickLabel value on the Category Axis in the ActiveChart and turn the interior of the corresponding data point a different color. The data point can wind up anywhere, so using a static Index value is no good. I mistakenly asked about DataLabels before. Again, help is appreciated.

 

[Damon Ostrander]

Hi Marty,

Is this what you are after?

Sub ColorPoint()
Dim S As Series
Set S = Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To S.Points.Count
If S.XValues(i) = 40 Then
S.Points(i).MarkerBackgroundColorIndex = 3
End If
Next i
End Sub

In this example the code tests for a category value of 40, but this could be a text string if the category values are text rather than numbers (e.g., S.XValues(i) = "April").

Damon

 

[Marty Nix]

With a little tinkering, yes, that's exactly what I needed, and a lot less sloppy than the method I was considering using. Thanks much!