Graphe dynamique

[Hady]

Bonjour et à tous et à toutes!

Voilà le soucis : j'ai un graphe dynamique qui est fait à partir d'un tableau croisé dynamique. Sur ce graphe, je souhaiterais récupérer dans une variable VBA le nombre d'éléments de la légende. Mais je ne sais pas comment faire. Je n'ai rien trouvé en utilisant : ActiveChart.Legend.???

Est-ce que quelqu'un connait la solution?

 

[Laurent L]

Bonjour,

Si la feuille contenant ton graphique dynamique se nomme 'Graph1':

Elements = Sheets('Graph1').Legend.LegendEntries.Count

Cordialement,

Laurent

 

[Hady]

Merci, c'est tout à fait la fonction que je voulais!

 

[Hady]

Autre soucis comment récupérer la valeur de la légende et pas le numéro de la légende? Je voudrais récupérer l'étiquette de légende pour automatiser la mise en forme selon la légende. Par exmple pouvoir mettre l'histo qui a l'étiquette jaune en jaune.
Je cherche un truc du genre :
ActiveChart.Legend.LegendEntries(i).Name/Text/Label
Mais rien ne marche!! Et je ne trouve pas dans les méthodes de la classe.
:sick:

 

[Gael]

Bonjour Hady, Bonjour Laurent,

J'ai juste fait la modif en auto enregistrement et le code suivant devrait permettre de changer ce que tu souhaites:

ActiveChart.Legend.LegendEntries(1).Select
With Selection.Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 33
.Background = xlAutomatic
End With

@+

Gael

 

[Hady]

Non, Selection.Font te permet juste de changer la mise en forme tu ne récupère pas la valeur du texte de la légende!
Tu ne peux changer que des trucs du genre la police, la couleut, etc.