J'utilise un contrôle MSChart de type VtChChartType2dXY associé à un datagrid dans une appli VB6 pour tracer plusieurs courbes.
Je voudrais afficher les étiquettes de données sur la courbe pour indiquer la valeur Y pour chaque valeur X, et je n'arrive pas à trouver la fonction correspondante avec ce type de MSChart.
Ci dessous un extrait de la fonction de tracé d'une courbe
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 'NoS : no de série : correspond à la courbe tracée 'nbp : nb de points de la courbe 'Y : Tableau 2 dimensions correspondant aux valeurs à tracer Dim i As Integer With MSChart1 .chartType = VtChChartType2dXY .Plot.Axis(VtChAxisIdY).AxisScale.Type = VtChScaleTypeLinear .Plot.Axis(VtChAxisIdX).AxisScale.Type = VtChScaleTypeLinear .Plot.UniformAxis = False .ColumnCount = NoS * 2 .ColumnLabelCount = NoS * 2 .Column = NoS * 2 .ColumnLabel = "Y courbe" .Column = NoS * 2 - 1 .ColumnLabel = "X courbe" .RowCount = nbp For i = 1 To nbp .DataGrid.SetData i, (NoS * 2 - 1), y(i, 1), False .DataGrid.SetData i, NoS * 2, y(i, 2), False Next i End With End Sub
Partager