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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

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