XL 2010 Modifier la couleur d'un Label (ActiveX) situé sur la FEUILLE

Magic_Doctor · 26 Août 2022

Bonsoir,

Tout est dans le titre. J'ai un peu tout essayé et je finis par me demander si c'est possible.
Il y a un Label nommé "MonLabel" sur la feuille. Depuis une macro, je veux modifier sa couleur.
Excel et les couleurs, c'est un peu le bordel avec les Hexa, Long et RGB. En général, j'utilise plutôt les Long.
J'ai tenté ceci, sans succès :

VB:

With ActiveSheet.Shapes("MonLabel")
    .BackColor = 125254 'vert clair'
End With

Me suis-je encore planté ou est-ce tout simplement impossible ?
Merci d'avance pour toute aide.

patricktoulon · 26 Août 2022

Bonsoir
ce n'est pas par la collection "shapes qu'il faut passer pour atteindre les properties d'un controls activX sur feuille
mais par
1° la collection OleObjects

Code:

With ActiveSheet.OLEObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

ou

2° la collection DrawingObjects

Code:

With ActiveSheet.DrawingObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

les deux suffixés bien entendu de la propertie determinant sont type "object"

Mais!!!!
si tu tiens absolument a passer par la collection "shapes"
il te faut remonter jusqu'à l'object c'est rigolo

VB:

With ActiveSheet.Shapes("MonLabel").DrawingObject.Object
    .BackColor = 125254 'vert...

patricktoulon · 26 Août 2022

Bonsoir
ce n'est pas par la collection "shapes qu'il faut passer pour atteindre les properties d'un controls activX sur feuille
mais par
1° la collection OleObjects

Code:

With ActiveSheet.OLEObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

ou

2° la collection DrawingObjects

Code:

With ActiveSheet.DrawingObjects("MonLabel").Object
    .BackColor = 125254 'vert clair'
End With

les deux suffixés bien entendu de la propertie determinant sont type "object"

Mais!!!!
si tu tiens absolument a passer par la collection "shapes"
il te faut remonter jusqu'à l'object c'est rigolo

VB:

With ActiveSheet.Shapes("MonLabel").DrawingObject.Object
    .BackColor = 125254 'vert clair'
End With

Magic_Doctor · 27 Août 2022

Bonsoir

Merci patricktoulon, ça marche au poil.

XL 2010 Modifier la couleur d'un Label (ActiveX) situé sur la FEUILLE

Magic_Doctor

XLDnaute Barbatruc

patricktoulon

patricktoulon

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires