Ir ao conteúdo
  • Cadastre-se
Vinicius Passsos

Excel Cor de fundo dos checknox

Recommended Posts

Galera, boa tarde.

 

Estou com um probleminha chato no Excel, desenvolvi um seletor de produtos que tem checkbox que mudam de cor(disponível ou não disponível) de acordo com o produto setado.

Uma dessas opções é a "estrutura de adaptação", como vcs podem ver abaixo.

 

 

image.png.bb18ddfde3385e928205739e79094e97.png

 

 

Reparem que ela está mais escura que o plano de fundo.

 

Eu rodo uma rotina que deixa todas as checkbox de uma cor única, e dependendo do produto, caso o opcional esteja disponivel, uso um select case que deixa o checkbox mais escuro.

 

Sub AccessSetting()
 
high_color_p = RGB(231, 230, 230) 'pattern color
'---------------------------------------------------------------------------
    With FrmGeneral 'this parts puts all optional itens under the same color
        .Chk_CCC.BackColor = high_color_p
        .Chk_AddElectrical.BackColor = high_color_p
        .Chk_ExtraClose.BackColor = high_color_p
        .Chk_CloseMec.BackColor = high_color_p
        .Chk_OpenMec.BackColor = high_color_p
        .ChK_MecBlock.BackColor = high_color_p
        .Chk_AuxTrans.BackColor = high_color_p

 

eu queria que esse backcolor ficasse da cor exata do plano de fundo, que é essa aqui ó:

 

image.png.37c3d462caed4575b38a4101b36d5452.png

 

mas eu só consigo trabalhar fazendo .backcolor = código em RGB. e não consigo transformar esse código em RGB.

 

como eu faço pra transformar essa cor: "&H8000000F&" em RGB ou colocar essa cor na função backcolor.

 

Já tentei fazer 

 

.Chk_CCC.BackColor = "&H8000000F&"

deu o erro 3

 

 

 

Me ajuda aí Galera!!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Vinicius Passsos

 

Não entendi muito bem o seu problema.

Caso seja transformar cores em HEXADECIMAL para RGB tente isro:

 

'consultado Rodrigo Ferreira no site https://www.funcaoexcel.com.br/obter-codigo-rgb-de-uma-cor/

Sub CorRGB()
 
 yourColor = &H8000000F
 
 R = yourColor And 255
 
 G = yourColor \ 256 And 255
 
 B = yourColor \ 256 ^ 2 And 255

 

End Sub
 

Veja se é por aí...

 

Té +

Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×