Excel Cor de fundo dos checknox

[Vinicius Passsos]

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.

 

 

 

 

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 ó:

 

 

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!!!!!

[Márcio Rodrigues]

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

[edivan.car]

Uma sugestão:

 

* de um "print" na tela onde apareça a cor que você que saber o código rgb;

* abra o "paint" e cole a imagem da área de transferência;

* use a ferramenta de "conta gotas" e clique sobre a cor desejada;

* na paleta de cores (guia "Cores"), clique em "Editar Cores";

* na janela que vai abrir (Editar Cores), nos campos vermelho, verde e azul estarão os códigos rgb.

 

Espero ter ajudado.

[RafaVillani]

Pelo que eu entendi ele quer somente alterar a cor, para tanto é só substituir esse código:

 

.Chk_CCC.BackColor = "&H8000000F&"

 

por esse

 

 

.Chk_CCC.BackColor = &H8000000F

 

RafaVillani