Kleur commandbutton

[xmir]

Ik heb het forum doorgespit maar helaas niet gevonden wat ik zoek.
Ik heb een lijst namen met daarbij een commandbutton die een mailtje genereert (in het voorbeeld is alleen de eerste werkend).
Nu zou ik graag willen dat als hij aangeklikt is, hij dan van kleur veranderd zodat ik weet dat ik hem gehad heb. Bij afsluiten van het bestand of middels een knop moeten ze allemaal weer naar de originele kleur gewijzigd worden.

Kan iemand mij aan de code helpen?

Alvast super bedankt! Groetjes Mirjam

 

[Ginger]

De kleur van een Forms button kan niet of niet goed aanpassen. De ActiveX buttons wel.

 

[xmir]

De kleur van een Forms button kan niet of niet goed aanpassen. De ActiveX buttons wel.

Wat bedoel je precies want het is een ActiveX knop (geen formulierbesturingselement). Of bedoel je wat anders?

 

[Conseclusie]

Private Sub CommandButton2_Click()
'Jouw code
CommandButton2.BackColor = RGB(100, 100, 100)
End Sub

(zelf even de kleur kiezen obv RGB-code)
En in ThisWorkbook:

Public HuidigeKleur
Private Sub Workbook_Open()
HuidigeKleur = Sheets("WPmassage").CommandButton2.BackColor
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("WPmassage").CommandButton2.BackColor = HuidigeKleur
End Sub

 

[xmir]

Private Sub CommandButton2_Click()
'Jouw code
CommandButton2.BackColor = RGB(100, 100, 100)
End Sub

(zelf even de kleur kiezen obv RGB-code)
En in ThisWorkbook:

Public HuidigeKleur
Private Sub Workbook_Open()
HuidigeKleur = Sheets("WPmassage").CommandButton2.BackColor
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("WPmassage").CommandButton2.BackColor = HuidigeKleur
End Sub

Waar moet ik de eerste code dan plaatsen? Kun je het misschien in mijn bestand toevoegen?

 

[emields]

de eerste code achter het blad de tweede in this workbook.

 

[xmir]

Super, dank je wel!

 

[loek010]

Hallo Mirjam

Ik zou het anders doen in plaats van 20 commandbuttons te moeten voorzien van een kleurtje en daar ook nog
de code van het verzenden achter elke button bij optelt dan wordt het wel heel veel code?

Zie mijn idee met een Userform :

 

[xmir]

Hallo Mirjam

Ik zou het anders doen in plaats van 20 commandbuttons te moeten voorzien van een kleurtje en daar ook nog
de code van het verzenden achter elke button bij optelt dan wordt het wel heel veel code?

Zie mijn idee met een Userform :

Zeker een mooie optie Willem, bedankt!!