Discussion :

[pierrorte]

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 :

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

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

[ctac_]

Bonjour,

Pas besoin de selectionner !

Code :

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

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

Cordialement

ctac

[pierrorte]

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!

[pierrorte]

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 :

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

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)