[VBA-E] Info-bulles graphe excel
Bonjour,
je souhaiterais personnaliser le texte des info-bulles s'affichant lorsque la souris passe sur les éléments d'un graphique excel (en l'occurrence un nuage de points).
Je viens d'écrire une macro pour personnaliser les étiquettes pour chaque point (voir ci-dessous), mais le résultat est difficilement lisible. D'où le souhait de faire quelque chose de similaire mais avec les info-bulles. Or je n'arrive pas à trouver la propriété qui convienne. Y a-t-il une manière d'adapter ce code pour faire cela? Existe-t-il une autre solution?
D'avance merci
EL
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub étiquettes()
Dim Counter As Integer, ChartName As String, xVals As String
Application.ScreenUpdating = False
With Worksheets("Taux cit-Prod").ChartObjects(1).Chart
xVals = .SeriesCollection(1).Formula
End With
gauche = InStr(xVals, "!")
xVals = Right(xVals, Len(xVals) - gauche)
droite = InStr(xVals, ",")
xVals = Left(xVals, droite - 1)
'Attach a label to each data point in the chart.
For Counter = 1 To Range(xVals).Cells.Count
With Worksheets("Taux cit-Prod").ChartObjects(1).Chart
.SeriesCollection(1).Points(Counter).HasDataLabel = False
.SeriesCollection(1).Points(Counter).DataLabel.Text = _
Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
End With
Next Counter
Next i
End Sub |
