Change Toggle Command Button Back Color

[JohnZ1156]

I have a "toggle" command button, and it works great.
The only thing missing is that I'd like the button color to toggle from Red to Green.
Here is my VBA Code, note that I tried to place the code ".BackColor = vbRed" and ".BackColor = vbGreen" in various places within the macro.
I commented them out because I keep getting a Debug message.
Thank you.

Private Sub ToggleMacro()
 
'Simplify code by refering to object once
With ActiveSheet.Shapes("Button1").TextFrame.Characters
 
'Check if button text is equal to a specific string.
If .Text = "VOID Check" Then

    Dim ws As Worksheet
    Dim rng As Range
    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("K16:K19")

[B]'    Button1.BackColor = vbRed[/B]
    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
[B]'        .BackColor = vbRed[/B]
    End With


'Change button text.
    .Text = "Do Not VOID Check"
[B]'    .BackColor = vbRed[/B]
'This happens if button text is not equal to the specific string.
Else
    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("B16:d20")
    
    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
[B]'        .BackColor = vbGreen[/B]
    End With

'Change button text.
    .Text = "VOID Check"
[B]'    .BackColor = vbGreen[/B]
End If
 
End With
 
End Sub

 

[rlv01]

It is easier to do with an ActiveX command button control than it is with a form button

Private Sub CommandButton3_Click()
    With CommandButton3
        Select Case .BackColor
        Case vbRed
            .BackColor = vbGreen
        Case Else
            .BackColor = vbRed
        End Select
    End With
End Sub

 

[Fluff]

You cannot change the colour of a Form Control button, but you could use a shape instead.

 

[JohnZ1156]

Fluff,
I think I figured it out.
I'd like to send you my whole XLSM file, but I'm not sure how to do that.
The purpose is to move an image "VOID" around.
The Button is named "Button1" and the image is named "Picture 3".
Please try it and let me know what you think.
Feel free to "clean it up" if my wording is messy.
Thanks.

Here is my macro.

Private Sub ToggleMacro()
 
'Simplify code by refering to object once
With ActiveSheet.Shapes("Button1").TextFrame.Characters
 
'Check if button text is equal to a specific string.
If .Text = "VOID Check" Then
    With ActiveSheet.Shapes("Button1").Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With

    Dim ws As Worksheet
    Dim rng As Range
    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("K16:K19")

'    Button1.BackColor = vbRed
    With ActiveSheet.Shapes("Button1").Fill
        .ForeColor.RGB = RGB(255, 0, 0)
    End With

    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
    End With
    

    'Change button text.
    .Text = "Do Not VOID Check"

'This happens if button text is not equal to the specific string.
Else
    Set ws = Sheets("Sheet1")
    Set rng = ws.Range("B16:d20")
    
    With ActiveSheet.Shapes("Button1").Fill
        .ForeColor.RGB = RGB(51, 153, 102)
    End With
    
    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
    End With

    'Change button text.
    .Text = "VOID Check"
End If
 
End With
 
End Sub

 

[Fluff]

Does it work?

 

[JohnZ1156]

Does it work?

YES !!!!
I wanted the button color to toggle from Green to Red using an IF Statement dependent upon the text on the button.
When you told me that I cannot change the color of a Form Control Button, I decided to try to change the color of the text on the button to toggle from Green to Red.
So instead of BackColor, I started playing around with ForeColor.
Turns out, the ForeColor changes the color of the button !!!
Now, I'm not sure how to change the color of the text on the button.
Anyway, try these lines of code and please let me know how it works for you.

With ActiveSheet.Shapes("Button1").Fill
.ForeColor.RGB = RGB(160, 0, 0)
End With

With ActiveSheet.Shapes("Button1").Fill
.ForeColor.RGB = RGB(0, 160, 0)
End With

Here is my FINAL VBA Code:

Sub ToggleMacro()
 
    Dim ws As Worksheet
    Dim rng As Range
    Set ws = Sheets("Printed_Check")
    Set rng = ws.Range("K16:K19")
    
'Simplify code by refering to object once
With ActiveSheet.Shapes("Button 1").TextFrame.Characters
 
'Check if button text is equal to a specific string.
If .Text = "VOID Check" Then
    With ActiveSheet.Shapes("Button 1").Fill
        .ForeColor.RGB = RGB(160, 0, 0)
    End With

    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
    End With

    'Change button text.
    .Text = "Do Not VOID Check"
'This happens if button text is not equal to the specific string.
Else
    Set ws = Sheets("Printed_Check")
    Set rng = ws.Range("P16:P20")
    
    With ActiveSheet.Shapes("Button 1").Fill
        .ForeColor.RGB = RGB(0, 160, 0)
    End With
    
    With ws.Shapes("Picture 3")
        .LockAspectRatio = msoFalse
        .Top = rng.Top
        .Left = rng.Left
        .Height = rng.Height
        .Width = rng.Width
    End With

    'Change button text.
    .Text = "VOID Check"
End If
 
End With
 
End Sub

 

[Jaafar Tribak]

For a form control button:

Sub ToggleMacro()
    With ActiveSheet.Buttons("Button1")
        If .Caption = "VOID Check" Then
            .Font.Color = vbRed
            .Caption = "Do Not VOID Check"
        Else
            .Font.Color = vbGreen
            .Caption = "VOID Check"
        End If
    End With
End Sub

 

[JohnZ1156]

Hey Jaafar Tribak
Thanks, but .... when I try to run your macro, I get this error message:

 

[Jaafar Tribak]

Hey Jaafar Tribak
Thanks, but .... when I try to run your macro, I get this error message:

View attachment 86366

Are you using a button from the form controls ?

 

[Rick Rothstein]

For a form control button:

Sub ToggleMacro()
    With ActiveSheet.Buttons("Button1")
        If .Caption = "VOID Check" Then
            .Font.Color = vbRed
            .Caption = "Do Not VOID Check"
        Else
            .Font.Color = vbGreen
            .Caption = "VOID Check"
        End If
    End With
End Sub

Just noting that you can replace your seven line If..End If block with these two lines of code...

.Font.Color = vbRed + vbGreen - .Font.Color
.Captions = Mid("Do Not VOID Check", 1 - 3 * (Left(.Caption, 2) = "Do") )