Chart Fill Patterns Conditional Formatting

aramaglia · #1 05-11-2017, 06:16 PM

Hey all,

I am trying to loop through each point in my chart and change the individual data point (I am using a bar graph) pattern to the diagonal striped pattern if a certain condition is met. Below is my code

Code:

Set c = ActiveChart
Set s = c.SeriesCollection(2)

nPoint = s.Points.count
    For iPoint = 1 To nPoint
        If s.Values(iPoint) >= 28 Then
            s.Points(iPoint).Interior.Color = RGB(255, 0, 0)
        Else
            s.Points(iPoint).Interior.Color = RGB(0, 255, 0)
        End If
        QN# = s.XValues(iPoint)
        For i = 6 To LRQN
            If Left(QnLog.Range("B" & i).Value, 1) = "I" And QnLog.Range("A" & i).Value = QN# And QnLog.Range("C" & i).Value = "Open" Then
                s.Points(iPoint).Format.Fill.Patterned (msoPatternDashedHorizontal) <-- this doesnt do anything :(
            End If
        Next i
    Next iPoint

Everything works until the pattern is being changed; nothing happens. I have tried numerous syntax's with no avail, and I haven't found much help on this subject so far. What is the proper way to change the fill pattern of a just an individual point?

Thank you.

aramaglia · #2 05-15-2017, 06:35 AM

Does anyone have a solution for this? I still have had no luck.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Conditional Formatting of Pie Chart	Jiing Chiang	Excel Programming	0	01-31-2017 04:38 PM
Scaling chart to fill entire PDF for basic programme	MatthewPH	Project	1	01-28-2016 08:09 AM
How can I count cells based on their fill color that was set by conditional format	trueimage	Excel Programming	1	10-25-2013 12:08 PM
Conditional color fill based on presence of data	avanderh	Excel	11	07-28-2011 09:10 AM
How can I fill cell color starting from Cell D5 using Conditional formatting instead	Learner7	Excel	0	07-08-2010 05:50 AM