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