Microsoft 365 demande fonction bordure image excel

[ZWALOUmamene]

Bonjour à toutes et à tous,

J'ai créé un tableau de bord sur Excel et ce dernier change la couleur des pays selon une valeur donnée. Cependant je souhaiterai que ce soient les bordures des pays (image) qui changent... Comment faire??

Voici la fonction que j'ai utilisé pour les couleurs des images :

Function ColorieImage(s, couleur1, couleur2, couleur3)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = RGB(couleur1, couleur2, couleur3)
ActiveSheet.Calculate

End Function


J'ai essayé de remplacer le Fill.ForeColor par Border.ForeColor ou Fill.Border.color et cela ne fonctionne pas...Quelqu'un peut m'aider ?

Merci encore,

Alexia

 

[sylvanu]

Bonsoir ZWALOUmamene,
Essayez avec f.Shapes(s).DrawingObject.Border.Color = RGB(couleur1, couleur2, couleur3), comme :

ActiveSheet.Shapes("Image 1").DrawingObject.Border.Color = vbRed

For the fun, une PJ.

 

[ZWALOUmamene]

problème réglé

 

[Usine à gaz]

Bonjour sylvanu, le Forum 🙂
Super ton code mais il ne devrait pas pouvoir colorer l'image du second onglet qui n'a pas le même nom ?
Voir fichier joint,
lionel 🙂

 

[sylvanu]

Re,
@lionel,
Le but était purement didactique. Et d'illustrer le titre du post "DEMANDE FONCTION BORDURE IMAGE "
par l'instruction .DrawingObject.Border.Color
Le reste dépend du contexte, je ne m'y suis pas attardé car hors propos.