Rajout de Texte ou de variable dans un graphique

Version imprimable

03/02/2011, 21h53
babybell

Rajout de Texte ou de variable dans un graphique

Amis du forum bonsoir

J'ai un graphique en barre simple dans lequel je voudrais rajouter un commentaire et le contenu d'une cellule qui est dans une variable. J'aimerai placer ces renseignements au-dessus de chaque barre, tout en laissant la valeur inscrite dans la barre et sans changer la légende.
Ce problème est-il réalisable ?

Merci de votre aide

Salut
Pourquoi recréer ce qui existe déjà ;)

Code:

1
2
3
4
5
6
7
8
9
10
Sub Essai()
'a adapter pour pointer ton graphique
With Feuil1.ChartObjects(1).Chart.SeriesCollection(1)
    'On affiche les etiquette de données (on les crée même)
    .ApplyDataLabels
    'On modifie le texte qui est placé au dessus de la premiere barre
    .DataLabels(1).Caption = "Essai" ' a toi de faire une boucle sur tous les element de la collection DataLabels
 
End With
End Sub

++
Qwaz

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 Macro1()
Dim Ch As ChartObject
Dim Lbl As Shape
Dim Pt As Point
Dim i As Integer
 
Set Ch = Sheets("Feuil2").ChartObjects("Graphique 1")
'supprime les labels éventuels
For Each Lbl In Ch.Chart.Shapes
   If Lbl.Type = 17 Then Lbl.Delete
Next Lbl
 
With Ch.Chart.SeriesCollection(1)
   .ApplyDataLabels
   For Each Pt In .Points
      Set Lbl = Ch.Chart.Shapes.AddLabel(msoTextOrientationHorizontal, Pt.DataLabel.Left, Pt.DataLabel.Top - 10, 40, 20)
      Lbl.TextFrame.Characters.Text = Sheets("Feuil2").Range("C" & i + 2).Value
      i = i + 1
      Set Lbl = Nothing
   Next Pt
End With
Sheets("Feuil2").Range("A1").Select
Set Ch = Nothing
End Sub

03/02/2011, 22h56
babybell
Merci à toi mercatog, mais entretemps j'ai trouvé dans
le forum un code de SilkyRoad qui correspondait à ce que je cherchais.
Code:

1 2 ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 130, 20, 70, 40).Select Selection.Characters.Text = total_A
Merci encore à toi