Discussion :

[yoyoz]

Bonjour le forum,
J'essayes depuis quelques temps de modifier en vba la couleur de la bordure d'une forme rectangle à bord arrondie.
Je travail sous Excel 2007 et l'enregistreur de macro n'a pas l'air de fonctionner avec les formes.
Le code que j'ai réussia glaner au fur et a mesure est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("Resultats").Shapes.AddShape(msoShapeRoundedRectangle, 135.75, 0, 400, 25).Select ' creer la forme à l'endroit voulu
Selection.Text = "coucou" 'ecrire du texte dans cette forme
Selection.Font.Color = vbBlack 'ecrire en noir
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255) 'remplir la forme en blanc
'Selection.ShapeRange.Fill.ForeColor.SchemeColor = 0 écriture differente de la ligne ci dessus
Selection.ShapeRange.Line.Color = 0 'ne pas avoir de bordure

Je souhaite donc avoir une bordure noire à cette forme et également écrire du texte sur 2 lignes.
Pourriez vous m'aider ?

[pioutwo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    Dim MyShape As Shape
    Set MyShape = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 135.75, 10, 400, 50) ' creer la forme à l'endroit voulu
    With MyShape
        .TextFrame2.TextRange.Characters.Text = "coucou" & vbCrLf & "ligne2" 'ecrire du texte dans cette forme
        .TextFrame2.TextRange.Characters(-1, -1).Font.Fill.ForeColor.RGB = RGB(0, 0, 0)  'ecrire en noir
        .Fill.ForeColor.RGB = RGB(255, 255, 255) 'remplir la forme en blanc
        .Line.ForeColor.RGB = RGB(0, 0, 0) 'bordure noire
    End With

[yoyoz]

Merci pour ta réponse j'était passer à autre chose en attendant de m'y replonger

pour le saut de ligne j'ai utiliser & Chr(10) & qui fonctionne également.