🚀 go-pugleaf

":: g A b R i E L ::" <nospam@nspam.org> escribi� en el mensaje 
news:438BCC16.8090208@nspam.org...
> Estimad@s
>
> Programando con VBA para excel, conozco la funcion RGB, pero no encuentro 
> un equivalente para obtener el RGB de un "color excel", en otras palabras, 
> en excel el color rojo es "3", en RGB es (255, 0, 0), pero no se obtener 
> el RGG de cualqiuer otro color con que me encuentre en excel.
>
> Por ejemplo: intColor = ActiveSheet.Range('A1').Font.Color
>
> Instancia el valor 3 la variable intColor, si excel esta con la paleta de 
> colores predefinida, y la celda 'A1' tiene color de fuente establecido en 
> Rojo.
>
> ?Alguien conoce alguna funcion, truco y/o forma de obtener el color RGB 
> conociendo el valor de color excel, por ejemplo de la fuente de una celda.
>
> (Por ahi, en la ayuda encontre la funcion QBColor, pero arroja error, no 
> funciona!)
>
> Gracias
>

no tengo muy claro si funcionara pero intenta esto:
la funcion Range("SELECCION").Font.Color te entrega el color de la celda en 
formato RGB como numero long
este numero se compone como RBG(x,y,z) de la siguiente manera

RBG (LONG) = x+y*256^1+z*256^2 (con x,y,z entre 0 y 255)


por ejemplo

si tengo seleccionado el color rojo (3) de la paleta la funcion 
range().font.color me entrega 255, el cual tiene que descomponerse como la 
funcion RBG que te describi.
esto significa que el color de la paleta 3 es (255,0,0)

Si pongo el color 33 de la paleta (cyan o parecido) el font.color me da 
16763904, por lo que debe corresponder a rgb(0,204,255)

ojala te sirva

saludos