Mostrando entradas con la etiqueta Animación. Mostrar todas las entradas
Mostrando entradas con la etiqueta Animación. Mostrar todas las entradas

2014-06-03

Ilusión óptica de la pared del café en Excel

Title La ilusión óptica de la pared del café es una ilusión óptica geométrica en la que las líneas paralelas que separan los azulejos alternando en dos colores parecen ser oblicuas. Fue redescubierta por Richard Gregory in 1973 cuando un compañero de su laboratorio observó dicho efecto en la fachada de un café de Bristol.

Notas

He reproducido la idea del fichero creado en 2010 por Hui. Se trata básicamente de un diagrama de barras apilado (100% apilado en el caso de Hui). He simplificado la formulación que desplaza los azulejos hacia la derecha y crea el efecto zigzag. He ampliado el desplazamiento para partir de una alineación vertical y terminar en un patrón ajedrezado. Finalmente, he añadido una barra de desplazamiento (control ActiveX) que actualiza constantemente los valores por lo que la respuesta sea continua. Hui utilizó una barra de desplazamiento (control de formulario) que actualiza los resultados después del clic. En lugar del blanco y negro, he optado por un color azul más vivo. El color no afecta la ilusión óptica. Sí lo hace en cambio la separación entre cada fila de azulejos (espesor de la junta).

Referencias

2013-09-10

Insertar una imagen GIF en Ms Excel

Para insertar una imagen GIF en Excel, vamos a la ficha Programador y hacemos clic sobre Insertar y luego sobre el icono Más controles:

En el desplegable seleccionamos Microsoft Web Browser y presionamos Aceptar:


A continuación con el cursor crea un marco para tu imagen. Luego podrás ajustar su tamaño al de la imagen. Sobre el objeto creado, haz clic con el botón derecho y luego sobre Ver código.

Inserta el siguiente código, con la ruta completa de la imagen.
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "C:\Users\nubededatos\Desktop\insertarimagen.gif"  
End Sub 
También puedes indicar URL de la imagen:
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "http://kevinburg.com/tumblr/fm2ugifs/train-repeat-615.gif"
End Sub
Finalmente en la ficha Programador desactiva el Modo diseño, haciendo clic sobre el mismo.


Para ajustar el tamaño del marco de la imagen activa de nuevo el modo diseño y arrastra los controladores de tamaño redondos sin colorear que aparecen alrededor del objeto.

Un ejemplo del resultado final. Una imagen gif con la evolución del ratio de fertilidad y la esperanza de vida:

Google's Public Data Explorer - World Bank
Entradas relacionadas:
Insertar una imagen GIF en Ms Excel
Nube de datos