Discussion :

[bastou93]

Bonjour a tous,

J'ai un petit problème de personnalisation d'un graphique, je m'explique:

Je voudrai faire un aperçu à l'utilisateur des couleurs des séries qu'il à choisit; pour cela je lui trace un graphique "démo" ou il peut choisir le type: Aire, histo, ligne, camembert.

Pour tous cela marche niquel sauf Courbe; en effet je n'arrive pas à partir des long que je stock à donner la couleur à la ligne de la série.

Ex pour l'aire je fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With Grf.Chart
 For i=1 to 10 
  .SeriesCollection.NewSeries
  with .SeriesCollection(i)
   .Value = Array(11-i,11-i)
   .Interior.Pattern = CLng(collectColor(i)("Pattern"))
   .Interior.PatternColor = CLng(collectColor(i)("PatternColor"))
   .Interior.Color = CLng(collectColor(i)("Color"))
  end with
 next i
end with

Voila pour info collectColor est une collection 2D ou on retrouve d'abord autant de collection que de graphe ici 10 puis une collection contennant 3 éléments key: Pattern qui vaut 1,13... un long
Color et PatternColor qui vaut par exemple 0 pour du noir, 255 rouge..etc

La ou cela se gatte c'est pour les lignes:

Ce code ci fonctionne, cependant je stock tout en long et non RGB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Grf.Chart
 For i=1 to 10 
  .SeriesCollection.NewSeries
  with .SeriesCollection(i)
   .Value = Array(11-i,11-i)
   .Format.Line.ForeColor.RGB = RGB(128,0,0)
  end with
 next i
end with

j'ai tester pas mal de truc rien n'y fais exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Grf.Chart
 For i=1 to 10 
  .SeriesCollection.NewSeries
  with .SeriesCollection(i)
   .Value = Array(11-i,11-i)
   .Format.Line.ForeColor = 0
  end with
 next i
end with

Merci de votre aide

Bastien

[bastou93]

Bonjour a tous,

J'ai beau regarder, je n'ai pas trouver, la seul piste que j'ai c'est de convertir le long en valeur RGB je suppose que le rouge correspond au bit de poids faible vu que rouge = 255 en long.
A voir mais je trouve cela galere

Merci a tous
Bastien

[bastou93]

Bon je me suis résigné à faire la fonction moi même et donc passer pas la méthode RGB voici le code si cela peut en aider:

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
Private Function ConvertLongtoRGB(LongColorValue as Long) as Collection
 
Dim R as Long
Dim G as Long
Dim B as Long
 
R = LongColorValue Mod 256
G = (LongColorValue \ 256) Mod 256
B = (LongColorValue \ 256 \ 256) Mod 256
 
Set ConvertLongtoRGB = new Collection
ConvertLongtoRGB.Add R,"R"
ConvertLongtoRGB.Add G,"G"
ConvertLongtoRGB.Add B,"B"
 
end function

je l'ai fais en collection pour récupérer comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SeriesCollection(1).Format.Line.ForeColor.RGB = RGB( ConvertLongtoRGB(12611584)("R"), ConvertLongtoRGB(12611584)("G"),ConvertLongtoRGB(12611584)("B"))

Voila si il y a de l'optimisation n'hésitez pas

Bastien