change button colour when clicked

**Bonnister** · 12-13-2012, 10:06 AM

Hello people

This follows on from a previous post about changing the text in a button when clicked, my code now looks like this:

Sub Button16_Click()

    Dim strCap As String

    With Columns("M:R").EntireColumn
        .Hidden = Not .Hidden
        If .Hidden Then
            strCap = "Show R&R"
        Else
            strCap = "Hide R&R"
        End If
    End With

ActiveSheet.Buttons(Application.Caller).Caption = strCap

End Sub

What I want to now do is change the colour of the button to green when it displays the 'Hide R&R' option (when it says 'Show R&R' the colour can stay the same standard grey). How do I do this? Can anyone help please?

Thanks
Kenny

**AlphaFrog** · 12-13-2012, 12:50 PM

I think the type of button you are using is from the Form control toolbar as opposed to an ActiveX-type command button from the Control Toolbox toolbar.
Overview of forms, form controls, and ActiveX controls on a worksheet

I don't think that type of button control has a background color property. It does have a font color property if that helps.

Sub Button16_Click()
    
    Dim btn   As Button
    Set btn = ActiveSheet.Buttons(Application.Caller)
    
    With Columns("M:R")
        .Hidden = Not .Hidden
        If .Hidden Then
            btn.Caption = "Show R&R"
            btn.Font.Color = RGB(0, 128, 0) 'Green
        Else
            btn.Caption = "Hide R&R"
            btn.Font.Color = vbBlack
        End If
    End With
    
End Sub

**arlu1201** · 12-14-2012, 02:46 AM

Bonnister,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. If you need more information on how to use them, check my signature below this post.