colorer bordures freeform

[eastwick]

Bonjour à toutes et tous,
J'ai appris à colorer le contenu d'un freeform. Pouvez-vous me proposer un code pour modifier la couleur de la bordure de ce même freeform ?
Merci et bonne journée.
P.S. : je laisse le fichier original avec le nom de son créateur, encore merci M. BOISGONTIER !!!

 

[DoubleZero]

Re : colorer bordures freeform

Bonjour, eastwick, le Forum,

S'il s'agit de supprimer la bordure de chaque forme, peut-être avec une ligne supplémentaire ?

Function ColorieImage(s, couleur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = couleur
f.Shapes(s).Line.Visible = msoFalse ' bordure supprimer
End Function
Function couleurImage(s)
Set f = Sheets(Application.Caller.Parent.Name)
couleurImage = f.Shapes(s).Fill.ForeColor.RGB
couleurImage = f.Shapes(s).Line.Visible = msoFalse ' bordure supprimer
End Function

A bientôt 🙂

 

[eastwick]

Re : colorer bordures freeform

Bonjour, non pas supprimer la bordure mais colorer cette bordure en fonction d'un nombre dans une cellule. Merci.

 

[DoubleZero]

Re : colorer bordures freeform

Re-bonjour,

Je ne sais 🙁 comment faire.

A bientôt 🙂

 

[Si...]

Re : colorer bordures freeform

salut

un exemple (plus basique) où seuls les bords prennent des couleurs.

Désolé du retard dear friend(e) 00 mais je te souhaite des bonnes journées (après ce 8 mars passé).😀

 

[eastwick]

Re : colorer bordures freeform

Merci, je prends, je verrai ce que ça donne un peu plus tard cet aprèm....

 

[DoubleZero]

Re : colorer bordures freeform

Bonjour à toutes et à tous,

...Désolé du retard dear friend(e) 00 mais je te souhaite des bonnes journées (après ce 8 mars passé).😀

@ Si...,

Bravo pour ta belle 😱 solution et merSi🙂🙂🙂 pour les souhaits !

A bientôt 😀😀

 

[Celeborn61]

Re : colorer bordures freeform

Bonjour à tous,
Cette solution marche très bien, si les formes sont bien déclarées en une seule couleur, mais elle ne fonctionnera pas si les formes sont définit en bordures à couleurs dégradées. Justement, je suis à la recherche de codes qui permettent de passer de une couleur unie à plusieurs couleurs pour les bordures, ce code existe partout pour le remplissage, mais je ne le trouve point pour les bordures.

Juste une petite remarque, il vaut mieux éviter de passer par des sélections de forme ".select", et plutôt les déclarer pour les travailler.
"Set Forme=" ou "with "

Merci.