Primero que nada aclara algo, la images, y objetos en general, NO ESTAN dentro de las celdas.
Ahora, primero que nada, debes agregar un control webbrowser en tu hoja. Si no tienes activo ese control, agregelo con la opcion "mas controles adicionales" de la barra de controles. Ahi debe estar como "microsoft webbrowser" o como "Explorador web de microsofot". Si aun asi, no lo vez, probablemenrte debas activar la "referencia" : "micorosoft internet controls"
Una vez agregado en tu hoja, dale derecho y en "Propiedades", en "Visible", elige "False"
Luego, tu macro deberia quedar algo asi:
Sub Gif_animado()
Hoja1.WebBrowser1.Visible = True
Hoja1.WebBrowser1.Navigate _
"C:Documents and SettingsAVALENCIAMis documentosMis imágenespcmaln.gif"
For a = 1 To 100000
DoEvents
Next a
Hoja1.WebBrowser1.Visible = False
End Sub
- Donde dice "Hoja1", se hace referencia al modulo de la hoja, no al nombre de la hoja.
- Obviamente, en la ruta tu coloca la tuya, es decir, donde se encuentra el gif animado que deseas se vea en tu hoja.
- El DoEvents es basico, sino no se vera la animacion del gif mientras va corriendo la macro
- Tambien es obivo que donde yo he colocado el FOR - NEXT, pues, tu deberias colocar tu codigo
Abraham
