Excel excel vba, mudar cor do userform

[Robert862422]

Bom senhores, eu estou construindo uma planilha que vai funcionar com formulário VBA, porém eu queria criar um comando para mudar a cor do userform como se fosse um tema, selecionava um botão com uma cor e o userform mudava para essa cor, faria assim com varias cores para ter vários temas de diferentes cores, porém eu não sei como atribuir isso de forma que fique salva no userform.

 

Ex: UserForm1.BackColor = vbRed, muda para a cor vermelha, porém quando eu fecho o userform e abro novamente ele volta a ficar com aquela cor padrão dele de antes de ativar o comando, gostaria de saber como faço para manter a cor que escolhi como tema, e sempre que eu apertar um outro botão que corresponde a uma cor ele mude ate eu clicar em outro botão, caso eu não clique ele mantém a cor que já havia escolhido sem resetar para a cor padrão, podem me ajudar com isso?

[Midori]

Atribua o valor da cor a uma célula da planilha.

 

E no formulário atribua esse valor a UserForm1.BackColor no click do botão e no evento Initialize do formulário para manter a cor escolhida quando abrir.

 

[Robert862422]

 

@Midori poderia me dar um exemplo de como fazer isso?

[Midori]

@Robert862422 Usando a célula A1 para atribuir a cor, o Initialize do Form pode ficar assim,

 

Private Sub UserForm_Initialize()
    If [A1] <> "" Then Me.BackColor = [A1]
End Sub

 

E os botões, supondo que sejam para colorir de azul ou vermelho.

 

Private Sub Azul_Click()
    [A1] = vbBlue
    Me.BackColor = vbBlue
End Sub

Private Sub Vermelho_Click()
    [A1] = vbRed
    Me.BackColor = vbRed
End Sub

 

[Robert862422]

@Midorideu super certo obrigado