Discussion :

[EL0807]

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 :

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
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

[SilkyRoad]

bonjour


L'évènement graphique MouseMove permet d'identifier le déplacement de la souris sur un graphiqe.
Tu peux l'associer à la méthode GetChartElement qui renvoie des informations sur les éléments du graphique. Ce qui te permettra d'identifier le passage de la souris sur les points de ton graphique.


http://silkyroad.developpez.com/VBA/...ntsGraphiques/


Je ne sais pas trop pour l'info bulle mais tu pourrais éventuellement afficher le résultat dans une forme automatique, une cellule à coté du graphique, dans un UserForm ...etc ...


bonne journée
michel

[EL0807]

Merci! Je vais tester ça dans les prochains jours. Je vous tiendrai au courant. Bon réveillon!