Addshape, textframe et couleur de fond...

[billpancho]

Bonjour,

J'ai un petit souci pour choisir la couleur de remplissage d'un rectangle créer avec addshape...

Le .fillcolor me fait boguer a chaque fois car je pense que je ne le mets pas ou il faut.
J'ai egalement l'impression que le '.textframe' a la fin de mon addshape m'empeche de mettre la couleur

J'ai essayé en faisant une zone de text à la place d'un rectangle cela marche mais le rendu excel ne me va pas

Voici mon morceau de code

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 30, 30, Hauteur, LArgeur).TextFrame
.Characters.Text = UserForm2.TextBox8.Text & Chr(10) & Val(TextBox9)





With .Characters.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 6
.ColorIndex = xlAutomatic
End With
End With

 

[Pierrot93]

Re : Addshape, textframe et couleur de fond...

Bonjour,

pas tout compris... regarde peut être ceci :

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 30, 30, 100, 100).TextFrame.Characters
    .Text = "test"
    With .Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 6
        .ColorIndex = 3
    End With
End With

fonctionne chez moi sous 2003... peut être utile de préciser la version utilisée... tu mets toutes versions mais il existe des différences dans la gestion des propriétés d'objets...

bonne journée
@+

 

[billpancho]

Re : Addshape, textframe et couleur de fond...

Bonjour,

Ton code colorie le texte mais pas le fond de la forme or pour modifier les propriétés du texte je n'ai aucun souci c'est bien pour la forme que j'ai des probleme car le fameux fillcolor ne marche pas ou plutot je ne sais pas m'en servir.

Je suis sous 2007 mais je mets toute versions car je souhaite que le code marche à mon travail qui est sous 2000 je crois

 

[Pierrot93]

Re : Addshape, textframe et couleur de fond...

Bonjour,

regarde ceci, ok 2003 et 2010, as 2007 de dispo :

Option Explicit
Sub test()
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 30, 30, 100, 100)
    .Fill.ForeColor.RGB = CLng(RGB(0, 255, 0))
    With .TextFrame.Characters
        .Text = "test"
        With .Font
            .Name = "Arial"
            .FontStyle = "Normal"
            .Size = 6
            .ColorIndex = 3
        End With
    End With
End With
End Sub

 

[billpancho]

Re : Addshape, textframe et couleur de fond...

Merci

dans l'entre fait j'ai trouvé ça :

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 30, 30, Hauteur, LArgeur).Select
    
        Selection.Text = UserForm2.TextBox8.Text & Chr(10) & Val(TextBox9)
        Selection.Font.ColorIndex = Automatic
        Selection.Font.Name = "Arial"
        Selection.Font.FontStyle = "Normal"
        Selection.Font.Size = 6
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = Couleur
        
        
        Selection.ShapeRange.Line.Visible = False
        
        
                 
            
              
    End With