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

XL 2016 Changer couleur du texte dans une forme

KTM

XLDnaute Impliqué
Bonsoir chers tous
Je voudrais mettre en rouge le texte dans ma forme nommée "importAcc"
Mon code ci dessous marche pas . Prière me corriger.
Merci.

Sheets("Acc").Shapes("importAcc").Characters.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
 

patricktoulon

XLDnaute Barbatruc
Bonjour
tellement plus simple de passer par la collection oleformat
et pour une couleur primaire autant utiliser la constante
rgb(255,0,0)=rouge donc vbRed

conclusion
VB:
Sheets("Acc").Shapes("importAcc").OLEFormat.Object.Font.Color = vbRed

passer par la collection textframe implique de préciser le caractère de départ et celui de fin
je prends 1000 pour être sur

VB:
Sheets("Acc").Shapes("importAcc").TextFrame.Characters(1, 1000).Font.Color = vbRed
te reste plus qu'a décider la méthode que tu veux employer

pour info
ne pas confondre les textboxs (formulaire) accessible par la collection(shapes) et les formes auto


et histoire de rendre encore les chose plus simple
on passe par la collection "DrawingObjects"
VB:
Sheets("Acc").DrawingObjects("importAcc").Font.Color = vbRed
 
Dernière édition:

KTM

XLDnaute Impliqué
Merci. Je pars très édifié!!
 

patricktoulon

XLDnaute Barbatruc
re
coucou @mapomme
je viens de tester ça fonctionne ,bizarre toute a l'heure ça ne fonctionnait pas

les 3 fonctionnent
VB:
Sheets("Acc").Shapes("importAcc").TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)

Sheets("Acc").Shapes("importAcc").TextFrame.Characters(1, 1000).Font.Color = RGB(255, 0, 0)

Sheets("Acc").DrawingObjects("importAcc").Font.Color = RGB(255, 0, 0)
 

KTM

XLDnaute Impliqué
Merci
Merci .
C'est exact.
 

Discussions similaires

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