changer le style d'un objet "libre forme"

Bonjour,

J'ai créé un shéma avec des lignes, des ronds et des formes libres. j'aimerai dynamiser ce shéma en changeant les couleurs et les styles des bordures.

J'arrive à modifier la couleur de ma forme libre mais pas son style. J'aimerai pouvoir passer d'une ligne (ou bordure) continue à discontinue.

Voici le code pour le changement de la couleur:

Code:

---

1 2 3 4 5 6

Sub Bouton8_Clic()   ActiveSheet.Shapes("Forme libre 13").Select 'forme libre que tu peux renommer au moment de sa création Selection.ShapeRange.Line.ForeColor.SchemeColor = 8 'colorier   End Sub

---

Merci beaucoup !!!

Bonjour,

Pas besoin de selectionner !

Code:

---

ActiveSheet.Shapes("Forme libre 13").Line.DashStyle = msoLineLongDash

---

Cordialement

ctac

Merci de ta réponse!
Je débute dans les macros VBA...
Petite question suite à ta réponse ... quel est l'interet d'utiliser la fonction "select" dans certains cas?!
Merci d'avance!

Dans mon cas, j'ai plusieurs figures libres. Je dois donc utiliser la fonction range (array (" figures libres"))
Suis je obligé d'utiliser la fonction "select" ?

Code:

---

1 2 3 4

ActiveSheet.Shapes.Range(Array("Line 199", "Freeform 393", "Line 206", "Freeform 410", "Freeform 174", "Freeform 385", "Freeform 424")).Select Selection.ShapeRange.Line.DashStyle = msoLineDash ActiveSheet.Shapes.Range(Array("Freeform 171", "Freeform 293", "Freeform 174")).Select Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

---