Jugar con los valores (Rojo, Verde, Azul) en las celdas

[verzulsan]

Hola,

Os dejo aqui un archivo auxiliar que hice por necesidad de crear una animacion de casilla en un programa de ajedrez que ando haciendo en C++, como ya esta terminada esa fase de animacion, lo iba a guardar en el baul y me acordé de vosotros, quizas os guste para tener mas flexibilidad a la hora de pintar del color que mas os interese el color de fondo de las celdas.

Aqui la formula, donde Pix.R, Pix.G y Pix.B han de ser sustituidos por el valor ROJO, VERDE, AZUL que os interese en un rango entre 0 y 255, habrá otros metodos pero este es el mio:

Dim P8 As Double: P8 = 2 ^ 8        'potencias de colores

Dim P16 As Double: P16 = 2 ^ 16     'potencias de colores

Pix.R + (((Pix.G + 1) * P8) - P8) + (((Pix.B + 1) * P16) - P16)[/CODE]

Para pintar la celda del color deseado, solo hay que usar la propiedad de celda:

Range(A1).Interior.Color = FORMULA DE ARRIBA

Os dejo tambien el archivo de pruebas, a ver si os da ideas para alguno de vuestros proyectos.

Un saludo!

Eligiendo colores2.zip

[Antoni]

Hola Santi:

Simplemente, genial.

Un saludo.

Antoni.

[German]

Muy bueno tu archivo, siempre buscando juegos nuevos para no aburrirte, no? jejejejee.

Saludos amigo, Germán.