Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.charting
|
|||
|
|||
Conditional Colors for Charts
Hello,
I have on a sheet with several graphs and I would like to execute the procedure below automatically. In advance thank you for the assistance Yves Sub ColorColumns() Dim vntValues As Variant Dim intSeries As Integer Dim intPoint As Integer With ActiveChart For intSeries = 1 To .SeriesCollection.Count With .SeriesCollection(intSeries) vntValues = .Values For intPoint = 1 To .Points.Count If vntValues(intPoint) < 60 Then ..Points(intPoint).Interior.Color = vbRed ElseIf vntValues(intPoint) = 60 And vntValues(intPoint) < 80 Then ..Points(intPoint).Interior.Color = vbYellow Else ..Points(intPoint).Interior.Color = vbGreen End If Next End With Next End With End Sub |
#2
Posted to microsoft.public.excel.charting
|
|||
|
|||
Conditional Colors for Charts
Please read the response to your post. You have reposted the same question
three times since receiving a reply. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "If" wrote in message ... Hello, I have on a sheet with several graphs and I would like to execute the procedure below automatically. In advance thank you for the assistance Yves Sub ColorColumns() Dim vntValues As Variant Dim intSeries As Integer Dim intPoint As Integer With ActiveChart For intSeries = 1 To .SeriesCollection.Count With .SeriesCollection(intSeries) vntValues = .Values For intPoint = 1 To .Points.Count If vntValues(intPoint) < 60 Then .Points(intPoint).Interior.Color = vbRed ElseIf vntValues(intPoint) = 60 And vntValues(intPoint) < 80 Then .Points(intPoint).Interior.Color = vbYellow Else .Points(intPoint).Interior.Color = vbGreen End If Next End With Next End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional Colors for Charts | Charts and Charting in Excel | |||
Conditional Colors for Charts | Charts and Charting in Excel | |||
Conditional Colors for Charts | Charts and Charting in Excel | |||
Conditional Formatting Question - Different Cell Colors?? | Excel Discussion (Misc queries) | |||
how can i use colors in conditional formulas if i want the result. | Excel Discussion (Misc queries) |