Spratt_Cary
02-01-2006, 05:57 PM
Running xl 2000. I need help with code. The bar chart is coming from a pivot table. Upper management wants to see the bars in different colors according to a scale.
0-5 Red
6 - 15 Bronze
16 - 35 Silver
36 Gold
Right now we do each bar one by one. Ugly.
There are 116 bars. I can change the bars using code:
ActiveChart.SeriesCollection(1).Points(1).Select
Selection.Fill.PresetTextured PresetTexture:=msoTextureWhiteMarble. ' Silver
ActiveChart.SeriesCollection(1).Points(2).Select
Selection.Fill.PresetTextured PresetTexture:=msoTextureWhiteMarble.
But I am dumbfounded on how to even start on the scale values. I am attaching the spreadsheet. I had to delete, hide some information. I hope this is enough information.
Thanks in advance
Brenda:hi:
0-5 Red
6 - 15 Bronze
16 - 35 Silver
36 Gold
Right now we do each bar one by one. Ugly.
There are 116 bars. I can change the bars using code:
ActiveChart.SeriesCollection(1).Points(1).Select
Selection.Fill.PresetTextured PresetTexture:=msoTextureWhiteMarble. ' Silver
ActiveChart.SeriesCollection(1).Points(2).Select
Selection.Fill.PresetTextured PresetTexture:=msoTextureWhiteMarble.
But I am dumbfounded on how to even start on the scale values. I am attaching the spreadsheet. I had to delete, hide some information. I hope this is enough information.
Thanks in advance
Brenda:hi: