billpancho
XLDnaute Nouveau
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
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