Quería compartir con vosotros una cosa que me ha parecido curiosa con la que accidentalmente tropecé mientras hacía pruebas de colores, adjunto al final del relato [EDITADO: 1 archivos zip con las imagenes y un video que subi a youtube] para quienes quieran saltarse el rollo.
Antes de la versión 2007 siempre me he preguntado por que solo había 40 colores en la paleta del excel; haciendo pruebas fui a sacar el listado de colores mediante macros con .Interior.Color en lugar de con .Interior.ColorIndex y vi que estos devolvían el código RGB en lugar de la posición de paleta. Entonces, me hice un bucle con exit on error que me listara el .Interior.Color y vi que este se paraba en 56 en lugar de 40 por lo que realmente tenia 56 colores y no 40 como siempre supuse, pero esta no es la curiosidad. Uno de los colores, el blanco daba una cifra bastante elevada, 16777215, y sumándole 1 daba negro de nuevo, que su color era 0 en primer lugar por lo que ya debía estar pasando por un modulo 16777216.
Me di cuenta también de que 16777216 son exactamente el numero de celdas que tiene una hoja de calculo en versiones anteriores al 2007, por lo que me dije, “por que no... rellenemos toda la hoja con colores desde 1 a 16777216”, así que rellene toda la hoja con:
Sub Colorear256x256()
Application.ScreenUpdating = False
For i = 1 To 65536
For j = 1 To 256
Cells(i, j).Interior.Color = ((j - 1) * 65536) + i
Next j
Next i
Application.ScreenUpdating = True
End Sub[/CODE]
Varios minutos mas tarde, ya la hoja coloreada, aleje el zoom para verlo de lejos y ahí estaban, formas poligonales sin sentido pero divertidas. Cada 256 filas se podía apreciar como el bucle de colores se reseteaba y parecía que se volvía a repetir la misma figura pero entonces me recorrí toda la hoja hasta la ultima fila con AvPag y vi que esas formas iban variando lentamente con una cierta lógica mostrando secciones transversales de lo que bien pudiera ser un cubo de 256x256x256 compuesto de figuras poligonales bastante amorfas pero curiosas.
Me parecía rollo poder verlo solo en excel y además, se que pocos se tomarían la molestia de usar la función de arriba y hacer todo eso solo para verlo, así que extraje los 256 cuadrados de 256x256 a mapa de bits y luego esos a video AVI para que pudierais verlo. He usado de proporción de imagen 1pixel=1celda en los .BMP y para el video le he puesto 30 frames per second.
Aquí dejo los dos enlaces, espero que os resulte tan curioso como a mi, ¿Que pueden ser estas figuras? ¿donde esta la logica de esto?
Muy buenas,
Quería compartir con vosotros una cosa que me ha parecido curiosa con la que accidentalmente tropecé mientras hacía pruebas de colores, adjunto al final del relato [EDITADO: 1 archivos zip con las imagenes y un video que subi a youtube] para quienes quieran saltarse el rollo.
Antes de la versión 2007 siempre me he preguntado por que solo había 40 colores en la paleta del excel; haciendo pruebas fui a sacar el listado de colores mediante macros con .Interior.Color en lugar de con .Interior.ColorIndex y vi que estos devolvían el código RGB en lugar de la posición de paleta. Entonces, me hice un bucle con exit on error que me listara el .Interior.Color y vi que este se paraba en 56 en lugar de 40 por lo que realmente tenia 56 colores y no 40 como siempre supuse, pero esta no es la curiosidad. Uno de los colores, el blanco daba una cifra bastante elevada, 16777215, y sumándole 1 daba negro de nuevo, que su color era 0 en primer lugar por lo que ya debía estar pasando por un modulo 16777216.
Me di cuenta también de que 16777216 son exactamente el numero de celdas que tiene una hoja de calculo en versiones anteriores al 2007, por lo que me dije, “por que no... rellenemos toda la hoja con colores desde 1 a 16777216”, así que rellene toda la hoja con:
Varios minutos mas tarde, ya la hoja coloreada, aleje el zoom para verlo de lejos y ahí estaban, formas poligonales sin sentido pero divertidas. Cada 256 filas se podía apreciar como el bucle de colores se reseteaba y parecía que se volvía a repetir la misma figura pero entonces me recorrí toda la hoja hasta la ultima fila con AvPag y vi que esas formas iban variando lentamente con una cierta lógica mostrando secciones transversales de lo que bien pudiera ser un cubo de 256x256x256 compuesto de figuras poligonales bastante amorfas pero curiosas.
Me parecía rollo poder verlo solo en excel y además, se que pocos se tomarían la molestia de usar la función de arriba y hacer todo eso solo para verlo, así que extraje los 256 cuadrados de 256x256 a mapa de bits y luego esos a video AVI para que pudierais verlo. He usado de proporción de imagen 1pixel=1celda en los .BMP y para el video le he puesto 30 frames per second.
Aquí dejo los dos enlaces, espero que os resulte tan curioso como a mi, ¿Que pueden ser estas figuras? ¿donde esta la logica de esto?
[b] - [/b][b]Archivo ZIP con las 256 imagenes en BMP[/b]
EDITADO:
Si os parece curioso poned vuestros comentarios asi me animo a subir mas curiosidades.
Un saludo
EDITADO: Parece que el video necesitaba codecs y muchos no podian verlo asi que lo he subido a youtube.