Para lograr insertar imágenes GIF tienes que activar la ficha Programador. Para activar esta ficha sigue los siguientes pasos:
1. Anda a la ficha Archivo y haz clic en Opciones.
2. En el cuadro "Opciones de Excel", haz clic en la opción "Personalizar cinta de opciones".
3. En la lista "Fichas principales", haz clic en la casilla "Programador".
4. Haz clic en Aceptar para activar la ficha Programador.
Para que la animación funcione, hay que insertar la imagen en un Control y usar un poco de código. Para lograrlo sigue los siguientes pasos:
1. Para insertar el control, anda a la ficha Programador, en el grupo Controles, haz clic en la opción Insertar.
2. En la lista de botones que aparece escoge el último botón "Más controles" (con la imagen de un martillo y una llave de tuerca), como se muestra en la siguiente imagen:
3. En la ventana que aparece, busca la opción "Microsoft web browser", selecciónala y haz clic en aceptar.
4. Posiciónate en el lugar donde deseas colocar la imagen GIF y selecciona el área en donde aparecerá la imagen GIF.
5. Nuevamente haz clic en la opción Insertar que se encuentra en el grupo Controles de la ficha Programador. En la lista de botones, haz clic en el "Botón de comando (Control Active X"), como se muestra en la siguiente imagen:
6. Posiciónate en el lugar donde deseas colocar este botón y selecciona el área en donde aparecerá.
7. Haz clic en la opción ver código que se encuentra en el grupo Controles de la ficha Programador.
8. En el editor VBA y en la ventana del módulo de la hoja concernida, copia el siguiente código:
Private Sub CommandButton1_Click()
WebBrowser1.Navigate ("dirección web de la imagen.gif")
End Sub
Por ejemplo:
9. Haz clic en una otra hoja del libro para activarlo, luego vuelve a la hoja de la animación para ver la imagen animada.
Si el tamaño del marco no permite una visualización correcta de la imagen, expande el marco de la imagen.
Puedes insertar otras animaciones procediendo de la misma manera y añadiendo una línea al código, teniendo en cuenta el número de control atribuido:
Private Sub CommandButton1_Click()
WebBrowser2.Navigate ("dirección web de la imagen.gif")
End Sub
Si deseas agregar otro GIF, debes de tener en cuenta el nombre del control que agregas, por ejemplo si agregas otro control este quedaría: WebBrowser2.Navigate "dirección web de tu imagen.gif". En donde dice: "direccion web de tu imagen.gif" para este ejemplo, el archivo GIF es de un sitio web, pero también puedes subir un GIF guardado en tu disco duro de tu ordenador y solo agregar la dirección de ubicación del archivo, por ejemplo: "D:\imagen.gif"
No hay comentarios:
Publicar un comentario