Discussion :

[Mathusalem]

Bonjour à tous

J'essaye désespérément de mettre au bout d'un graph un label (sa valeur, quand il s'agit d'une droite horizontale)

j'essaye quelque chose comme ça :

Code :

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

1
2
pts = graph.ChartObjects(1).Chart.SeriesCollection(3).Points
pts(pts.Count).ApplyDataLabels Type:=xlShowValue

mais évidement ça ne fonctionne pas...


une astuce ?

[mayekeul]

tu essaie de mettre un label pour la valeur la plus haute , c'est ça?

[Mathusalem]

non j'essaie de mettre un label sur le point le plus à droite.

[mayekeul]

mais il te renvoie une erreur?

[mayekeul]

sinon, comme ça :

Code :

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

1
2
set pts = graph.ChartObjects(1).Chart.SeriesCollection(3).Points
pts(pts.Count).ApplyDataLabels Type:=xlShowValue

[Mathusalem]

ah oui c'est ça

Code :

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

1
2
3
4
5
6
7
Set pts = graph.ChartObjects(1).Chart.SeriesCollection(3).Points
indice = Round((1 + pts.Count) / 2)
pts(indice).ApplyDataLabels Type:=xlShowValue
pts(indice).DataLabel.Font.ColorIndex = 10
pts(indice).DataLabel.Font.Bold = True
pts(indice).DataLabel.Font.Size = 11
pts(indice).DataLabel.NumberFormat = "##,##"

merci

[mayekeul]

mais de rien!