Morning All,

The following function is used to loop through all line charts on each
sheet of a report. I was hoping that when is finds any negative points
it would colour in that point on the chart red - it does work nu the
points are coloured black .....any help appreciated.

Regards
Jason.


'=============================================
Public Function FormatGraph(myWorksheet As String)

Sheets(myWorksheet).Select

Dim myChartObject As ChartObject
For Each myChartObject In Sheets("Daily Results").ChartObjects
myChartObject.Select

Dim myPoint As Integer, valArray

With ActiveChart.SeriesCollection(1)
valArray = .Values
For myPoint = 1 To .Points.Count
Select Case valArray(myPoint)
Case Is 0
With .Points(myPoint)
.Interior.ColorIndex = xlAutomatic
End With
Case Is = 0
With .Points(myPoint)
.Interior.ColorIndex = xlAutomatic
End With
Case Is < 0
With .Points(myPoint)
.Interior.ColorIndex = 25
.Interior.Pattern = xlSolid
End With
End Select
Next
End With

Next myChartObject
Cells(1, 1).Select

End Function 'FormatGraph
'=============================================