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.

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

Assine nossa newsletter!

Assine nossa newsletter!
Junte-se à comunidade