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

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

Magic_Doctor

XLDnaute Barbatruc
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.
 
Solution
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

XLDnaute Barbatruc
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
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…