Chart Objects

[Nick 'The Database Guy']

Hi Ladies and Gents,

I have inserted a Microsoft Graph Chart in one of my reports, it is a
bar chart and has over 70 possible classification for the data to fit,
not all of these classifications are used. What I want to know is how
do I loop through each returned result and add the labels total and
description to the chart? I would be grateful if some one could let
me know as I am banging my head against a brick wall here.

Thanks in advance

Nick

 

[Nick 'The Database Guy']

Hi Ladies and Gents,

I have inserted a Microsoft Graph Chart in one of my reports, it is a
bar chart and has over 70 possible classification for the data to fit,
not all of these classifications are used.  What I want to know is how
do I loop through each returned result and add the labels total and
description to the chart?  I would be grateful if some one could let
me know as I am banging my head against a brick wall here.

Thanks in advance

Nick

OK, I thought that I had to loop through the ChSeries objects within
ChSeriesCollection collection, some thing like this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim Bar As Variant
Dim MyChart As Variant
Dim Bars As ChSeriesCollection
Set MyChart.Name = Me.oleSpeciality
For Each Bars In MyChart
For Each Bar In Bars
With Bar
.HasSeriesName = True
.HasValue = True
End With
Next
Next
End Sub

Again thanks in advance (hopefully)

Nick

 

[Nick 'The Database Guy']

OK, I thought that I had to loop through the ChSeries objects within
ChSeriesCollection collection, some thing like this:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Dim Bar As Variant
    Dim MyChart As Variant
    Dim Bars As ChSeriesCollection
    Set MyChart.Name = Me.oleSpeciality
    For Each Bars In MyChart
        For Each Bar In Bars
            With Bar
                .HasSeriesName = True
                .HasValue = True
            End With
        Next
    Next
End Sub

Again thanks in advance (hopefully)

Nick

Thanks again for trying, as you undoutedly did, I will have to try
another newsgroup.