Ajout d'une Textbox à un graphique

Bonjour,

j'essaye d'ajouter une textbox à un de mes graphes...

J'ai principalement deux problèmes.

1. Comment contrôler le nom de la textbox ?
2. Comment changer la couleur de fond de ma textbox ?

Pour l'instant, j'ai le code suivant (qui fonctionne) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

With ActiveSheet.ChartObjects("Chart 1").Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 233.5, 100, 50, 20)   With .TextFrame .AutoSize = msoTrue .Characters.Text = ActiveSheet.Range("D70").Value ' Preferred operating region With .Characters(Start:=1, Length:=55).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 5 ' blue End With End With End With

---

J'essaye d'inclure une ligne du genre

.ForeColor.RGB = RGB(250,0,0)

mais sans succès...

Merci à ceux qui m'aideront.

RM :D

Salut Michaud_rene,

Considère ceci..

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

Private Sub CommandButton1_Click()   '...   With TextFrame .Value = "TextFrame" .Name = "TextFrameTest" .ForeColor = RGB(255, 255, 255) 'Couleur police -> Blanc .BackColor = RGB(0, 0, 255) 'Couleur fond -> Bleu End With   End Sub Private Sub CommandButton2_Click()   '...   With TextFrameTest .Value = "TextFrameTest" .Name = "TextFrame" .ForeColor = RGB(0, 0, 0) 'Couleur police -> Noir .BackColor = RGB(255, 255, 255) 'Couleur fond -> Blanc End With   End Sub

---

Si la TextBox est sur la feuille, met comme ceci With Feuil1.TextFrame

Bonne journée !

Antoniom.