Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 demande fonction bordure image excel

ZWALOUmamene

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

XLDnaute Barbatruc
Supporter XLD
Bonsoir ZWALOUmamene,
Essayez avec f.Shapes(s).DrawingObject.Border.Color = RGB(couleur1, couleur2, couleur3), comme :
VB:
ActiveSheet.Shapes("Image 1").DrawingObject.Border.Color = vbRed
For the fun, une PJ.
 

Pièces jointes

  • ShapeBordure.xlsm
    23.7 KB · Affichages: 11
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…