Opgelost Button met 3 kleuren (vba/macro)

[AlexW]

Hallo,

Ik heb een vraagje, wie kan mij helpen om een Button te maken met 3 optie's in verschillende kleuren.

Dus als je:
1x op button klikt wordt deze kleur "Oranje", klik je nog een keer dan wordt deze "Groen", en klik je nog een keer dan wordt deze "Wit".
En als je weer erop klikt dan wordt deze weer "Oranje" enz...
Standaard staat deze op kleur wit.

Ik denk dat het een VBA (macro) gaat worden.
Als bijlage een voorbeeld.

Kan iemand mij helpen ? alvast hartelijkdank voor jullie hulp.

Grt. Alex

 

[emields]

zoiets?

 

[HSV]

Maak een CommandButton aan uit de ActiveX zoals in bijgevoegd bestand.

Private Sub CommandButton1_Click()
With CommandButton1
 Select Case .BackColor
   Case -2147483628
     .BackColor = 49407
     .Caption = "Bezet"
   Case 49407
     .BackColor = 4697456
     .Caption = "Gereed"
   Case 4697456
     .BackColor = -2147483628
     .Caption = "Vrij"
  End Select
End With
End Sub

 

[snb]

Private Sub CommandButton1_Click()
 With CommandButton1
    .Accelerator = (.Accelerator + 1) Mod 3
    .Caption = Split("vrij bezet gereed")(.Accelerator)
    .BackColor = Split("-2147483628 49407 4697456")(.Accelerator)
  End With
End Sub

 

[HSV]

@snb,
Leuk om te zien, ik was ook met 'accelerator mod 3' begonnen en zou ik met 'choose' de kleur ophalen.
Ben daar weer vanaf gestapt.
Ik kan helaas je code niet testen op mobiel.

 

[snb]

Testen met vbwhite, vbgreen lijkt me ook aardig.

 

[snb]

zo gaat het:

.BackColor = Split(vbWhite & " " & vbYellow & " " & vbGreen)(.Accelerator)

 

[HSV]

Met de Accelerator en Choose die ik voor ogen had.

Private Sub CommandButton1_Click() 'snb
 With CommandButton1
    .Accelerator = .Accelerator Mod 3 + 1
    .Caption = Choose(.Accelerator, "vrij", "bezet", "gereed")
    .BackColor = Choose(.Accelerator, vbWhite, vbYellow, vbGreen)
  End With
End Sub