[VB6] Combiner 2 styles avec MSChart

Version imprimable

09/04/2003, 09h57
khany

[VB6] Combiner 2 styles avec MSChart

:D Hello !

J'ai vite effectué une recherche MSChart ce matin avant la foule :lol: mais je n'ai rien trouvé de similaire à mon prob.

Ayant un graphe classique en batons, j'aimerai tracer une ligne rouge sur le graphe qui montre la moyenne de mes batons.

Exemple :
Baton 1 = 50
Baton 2 = 75
Baton 3 = 10
Baton 4 = 45

les valeurs sont tjrs comprise entre 0 et 100

Je désire tracer une ligne horizontale à la valeur moyenne 50+75+10+45 = 180/4 = 45 sur mon axe vertical

Est-ce possible :?:

MERCI
09/04/2003, 14h18
bidou

tu peux ajouter une série en ligne qui vaut 45.
Parce que comme mschart n'est pas container, tu ne pourras pas ajouter un controle de type line.
09/04/2003, 17h26
khany

:D Merci ! je vais regarder à ca !
j'avais essayé avec Line et zorder 0 mais effectivement, je n'arrivais pas à placer le contrôle correctement.

Je croyais que MSChart n'acceptait pas 2 types de graphe différents : comme quoi faut pas toujrs écouter les rumeurs :lol:

MERCI
28/04/2003, 09h49
khany

:D Salut tout le monde !

Je sais, ce post revient de loin mais j'ai bien profité du congé de Pâques pour oublier un peu VB :wink:

Si j'essaye d'appliquer la solution proposée, tout mon graphe prend l'option de ma nouvelle série "Ligne" et je perds mes bâtonnets.

Ca ne m'arrange pas ca :cry:

Merci !
28/04/2003, 10h23
bidou

il faut passer le type du graphique en combinaison (VtChChartType2dCombination)

:D Salut !

Merci, j'ai vu juste après mais , désolée pour les questions aussi bêtes car j'utilise MSChart pour la première fois, je ne vois pas ma ligne en faisant :
Code:

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 Private Sub Form_Load() With Graph .chartType = VtChChartType2dCombination .ColumnCount = 5 .RowCount = 1 .Row = 1 .Column = 1 .SeriesType = VtChSeriesType2dBar .Data = 45 .Column = 2 .SeriesType = VtChSeriesType2dBar .Data = 10 .Column = 3 .SeriesType = VtChSeriesType2dBar .Data = 90 .Column = 4 .SeriesType = VtChSeriesType2dBar .Data = 19 .Column = 5 .SeriesType = VtChSeriesType2dLine .Data = 41 End With End Sub
L'exemple est bête et simple pour me familiariser et j'ai sûrement omis une précision pour avoir ma ligne horizontale qui traverse mes 4 bâtonnets. Implicitement, je sens que je dois lui dire d'où part cette ligne et ou elle s'arrête mais ...... suis perdue :oops: :oops:

Merci aux as du Chart !!

29/04/2003, 08h59
khany

:D Salut tout le monde !

Vraiment désolée de vous ennuyer avec cette bête question mais sur le forum, j'ai pêché bcp d'aide (20 post sur MSChart chacun ayant un centre d'intérêt), sur le Net j'ai trouvé 3 exemples de config du MSChart mais :cry: aucun exemple permettant de combiner 2 styles dans mon graphe.

J'espère que vous pourrez m'aider (voir petit exemple bête dans post ci-dessus)

MERCI beaucoup :wink:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command1_Click()
Dim compteur As Long, ArrData(1 To 4, 1 To 3) As Variant
 
For compteur = 1 To 4
    ArrData(compteur, 1) = "toto"
    ArrData(compteur, 2) = Choose(compteur, 45, 10, 90, 19)
    ArrData(compteur, 3) = 41
Next compteur
With MSChart1
    .chartType = VtChChartType2dCombination
    .ChartData = ArrData
    With .Plot.SeriesCollection
        With .Item(1)
            .SeriesType = VtChSeriesType2dBar
            .Position.Order = 1
        End With
        With .Item(2)
            .SeriesType = VtChSeriesType2dLine
            .Position.Order = 0
        End With
    End With
End With
 
End Sub

dans mon exemple j'inverse les deux positions pour que tu voie bien que la série de position la moins élevée est au premier plan.

29/04/2003, 09h30
khany

:D Merci, c'est super gentil

Il me manquait encore du feeling de MSChart pour y arriver car je ne me positionnais pas correctement.

Je viens encore d'en apprendre beaucoup et, avec les autres post, je peux faire un superbe graphe. :P

Super Grand Merci ! :D :D