Este fórum está sendo desativado

[deimiler]

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.

[eduardogrigull]

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

[deimiler]

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