VBA Excel - códigos cores longos
Os códigos de cores VBA nomeados abaixo são as propriedades Interior.ColorIndex. Por sua vez, os códigos de cores versão longa são usados para propriedades Interior.Color.
Essa imagem é uma cópia de uma planilha acessível DIqlTjoC61G aqui.
Foto: © Sasirin Pamai - 123RF.com
Códigos de cores
Em primeiro lugar, uma imagem identificando esses códigos de cores:
Essa imagem é uma cópia de uma planilha acessível DIqlTjoC61G aqui.
Função de conversão
Este converteu o VBA valores de cor (1 a 56) na sua função Longo código da versão:Função CorLonga(Cor As Integer) As Long Dim CorsLng()Conversão CorsLng = Array(0, 16777215, 255, 65280, 16711680, 65535, 16711935, 16776960, 128, 32768, 8388608, 32896, 8388736, 8421376, _ 12632256, 8421504, 16751001, 6697881, 13434879, 16777164, 6684774, 8421631, 13395456, 16764108, 8388608, 16711935, 65535, _ 16776960, 8388736, 128, 8421376, 16711680, 16763904, 16777164, 13434828, 10092543, 16764057, 13408767, 16751052, 10079487, _ 16737843, 13421619, 52377, 52479, 39423, 26367, 10053222, 9868950, 6697728, 6723891, 13056, 13107, 13209, 6697881, 10040115, 3355443, 16777215) 'Em caso de erro colorir em preto If Cor < 0 Or Cor > 56 Then CouversãoCorLonga = 0 ConversãoCorLonga = CoresLng(Cor) End Function
Foto: © Sasirin Pamai - 123RF.com
Veja também
- Codigo de cores
- Codigos de cores - Melhores respostas
- Codigo cores - Melhores respostas
- Codigo de cor transparente - Dicas - CSS
- Complete o código abaixo de modo que todos os links de uma página não tenha a linha sublinhada e que o texto esteja na cor #3366 - Dicas - HTML
- Código para mudar a cor da letra no facebook - Dicas - Facebook
- Código hexadecimal de uma cor - Dicas - HTML
- Codigos gta 5 pc - Dicas - PC
Este documento, intitulado 'VBA Excel - códigos cores longos', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.
