Guru do Excel e Power BI

Enviado: **31 Jul 2019 às 23:01**

Olá,
Eu tenho uma planilha que tem 1 Userform e dentro dele tem 1 MultiPage, nessa MultiPage tem varios ToggleButtons e gostaria de saber uma maneira mais simples para mudar a cor deles individualmente. No caso queria que quando eles estivessem pressionados os mesmos ficassem vermelho e quando distendidos ficassem verde, mais individualmente. Eu já pesquisei muito e não achei uma maneira que eu entendesse.

Bem difícil pensar nisso, mas acho que entendi... Segue o código. Voce joga num módulo, e em cada botão, na opção "_Change" coloca "Call AtualizaCor"

Código: Selecionar todos

Sub AtualizaCor()

Dim botao As Control

For Each botao In UserForm1.Controls
    If TypeName(botao) = "ToggleButton" Then
        If botao.Value = True Then
            botao.BackColor = &HFF&     'Vermelho
        Else
            botao.BackColor = &HFF00&   'Verde
        End If
    End If
Next botao

End Sub

Muito obrigado, vou trabalhar com mais de 50 botões, com esse código que mostrou vou economizar bastante trabalho.

Guru do Excel e Power BI

Mudar cor de varios togglebuttons em um userform

Mudar cor de varios togglebuttons em um userform

Re: Mudar cor de varios togglebuttons em um userform

Mudar cor de varios togglebuttons em um userform