Series Marks Style displaying difficulties

[Shurik]

Hello,

I'm running 5.03 version and trying to display the results of a crosstab
table using VB6

Code: Select all

With TChart2
      
      'hide chart
      ' .Visible = False
      'clean up
       .RemoveAllSeries
       
        For i = 0 To rs.Fields.Count - 3
        'add a ne wseries        
        .AddSeries scPoint
        .Series(i).DataSource = rs
        .Series(i).YValues.ValueSource = rs.Fields(i + 1).Name
        .Series(i).VerticalAxis = aLeftAxis
        'labels
        .Series(i).LabelsSource = rs.Fields(0).Name
        ' legend title
        .Series(i).Title = rs.Fields(i + 1).Name
        .Series(i).Marks.Style = smsLegend             '<------------------
        .Series(i).Marks.Visible = True 'False
       Next
       
      .Visible = True
   
   End With

The legend does display the Series names which I'd like to be dispayed on the chart but what happens instead is that I only get XY values and not the legend "content".

Am I missing something here?
Thanks in advance for your input

Shurik.

[Narcís]

Hello Shurik,

I don't understand very well what are you trying to do, but if you want to change the series marks text you can implement it in the OnGetSeriesMark event as shown below. In that case the series marks are changed to the series name.

Code: Select all

Private Sub TChart1_OnGetSeriesMark(ByVal SeriesIndex As Long, ByVal ValueIndex As Long, MarkText As String)
    MarkText = TChart1.Series(SeriesIndex).Name
End Sub

[Shurik]

Hi Narcís,

That (MarkText = TChart1.Series(SeriesIndex).Title )
did the trick .

Thanks a lot

Shurik.

[Narcís]

Hi Shurik,

You're welcome! I'm glad to hear this helped.