I just created a quickie report that has a chart in the page header and nothing in the detail. The chart shows six values.
In Design view, I edited the first data series to show labels. (Doubleclick the chart in Design to get into MS Chart. Select the first data series and rightclick, selecting Format Data Series from the popup menu. On the Data Labels tab, check the box for Value.)
To get different colors for each data point, I used this code:
Code:
Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Dim Counter As Long
Dim NumPoints As Long
With Me.Graph1.SeriesCollection(1)
NumPoints = .Points.Count
For Counter = 1 To NumPoints
.Points(Counter).Interior.ColorIndex = Counter
Next
End With
End Sub
I used a simple loop to assign the colors. You could use a fancier construct like an If or a Select Case structure to assign colors based on meaningful rules.