Ajouter un text à cote d'un point sur un graphique

Version imprimable

Bonjour a tous,
dans un programme, grace au forum j'ai une procedure de recherche pour le formatage de point sur une graphique nuage de point.
Ma question : comment faire pour ajouter a cote de ces points un petit text

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub pointss()
Dim Nbpoint As Integer, i As Integer, j As Integer
 
Nbpoint = ActiveChart.SeriesCollection(1).points.Count
For i = Nbpoint To 1 Step -1 ' les points a reculons
    With ActiveChart.SeriesCollection(1).points(i)
        x = ActiveChart.SeriesCollection(1).Values
        If x(i) Then
            .MarkerForegroundColorIndex = 6 '<-- couleur avant plan
            .MarkerBackgroundColorIndex = 6 '<-- couleur arrière plan
            .MarkerStyle = xlCircle '<-- style du point xlCircle, xlSquare, xlDiamond, xlTriangle
            .MarkerSize = 10 '<-- taille du point, 5 par défaut
 
            j = j + 1 ' incrémenter les points modifié
        End If
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
    True, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=False, _
    ShowPercentage:=True, ShowBubbleSize:=False
    If j = 3 Then Exit For 'arrater après 3 points
Next
End Sub

29/07/2008, 12h13
ouskel'n'or

Tu as une réponse de cet excellent DarkVader dans la FAQ VBA-Excel au chapitre "Comment ajouter du texte sur un graphique ?"
Bonne journée
29/07/2008, 12h48
mat-tech
Oui j'avai vu cette possibilité la, mais ca m'avait l'aire fort compliqué car je dois alors réccuperer la position de chaque point et les intégrer dans le code
Code:

1 2 3 ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100#, 100#).Select Selection.Characters.Text = "Le Texte"
S'il n'existe pas de moyen plus simple, comment puis-je récuper la position des derniers points dans ma boucle ?

Merci
29/07/2008, 13h49
ouskel'n'or

Je crois me souvenir que SilkyRoad a mis ça dans la FAQ. Tu devrais chercher un peu pour nous éviter de le faire pour toi.
Je l'ai fait, il m'a fallu 15 secondes. :evil:
Regarde au chapitre "Comment afficher des labels personnalisés pour chaque point d'un graphique ?"
30/07/2008, 10h55
mat-tech

Ca aussi je l'avait vu dans les Faqs, mais j'ai fini par trouvé en posant la question dans un autre service de la socité.

Merci

PS : Dès que j'aurai plus de temps je vous posterer la methode, afin de l'introduir dans les Faqs