Discussion :

[michaud_rene]

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 :

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

[Antoniom]

Salut Michaud_rene,

Considère ceci..

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