MS Graph with Access 2000, Changing Column Colors

Yes :)

Here is some code I use for colouring a graph based on results.
The code is called from the Detail_Format event

Private Sub ColourParetoGraph()
Dim dbs As Database
Dim intPointCount As Integer
Dim intPointColour As Long
Dim qdf As QueryDef
Dim prm As Parameter
Dim rstGraphData As Recordset
Dim intWeek As Integer

    On Error Resume Next
    ' Return reference to current database.
    Set dbs = CurrentDb
    ' Open dynaset-type Recordset object.
    Set qdf = dbs.QueryDefs("qryWeeklyParetoGraph")
    For Each prm In qdf.Parameters
        prm.Value = Eval(prm.Name)
    Next prm
   
    Set rstGraphData = qdf.OpenRecordset(dbOpenDynaset)
    ' Set current record.
    rstGraphData.MoveFirst
   
For intPointCount = 1 To 10
    If rstGraphData("Improved") > 0 Then
        intPointColour = QBColor(12) ' red
    Else
        intPointColour = QBColor(10)
    End If
    Graph53.SeriesCollection(1).Points(intPointCount).Interior.Color = intPointColour
    rstGraphData.MoveNext
Next

rstGraphData.Close
Set rstGraphData = Nothing
Set qdf = Nothing
Set dbs = Nothing
End Sub

HTH

Peter