Asignar macro a un .gif

hola, Edixon !

sabemos que le podemos asignar macros a una imagen (.jpg)
yo quisiera cambiar esa imagen por una animacion (.gif o un .swf)
e intentado hacerlo pero no me da la opcion para asignarle una macro
sera que eso se puede hacer?

serviria si comentas [+/- exactamente] 'que' es lo que ha intentaste :))
asi como el tipo de control que utilizas como 'contenedor' de imagenes animadas -?-
[no te olvides que 'a veces', lo que cuenta... son los 'detalles'] :D

saludos,
hector.

Ahhhhhhhhhh disculpa lo que tengo es un objeto WebBrowser [Explorador
del Web de Microsoft] , en la hoja de calculo
mediante una macro le doy la ruta dela ubicacion y aparece el .gif

hola, Edixon !

... lo que tengo es un objeto WebBrowser [Explorador del Web de Microsoft], en la hoja de calculo
mediante una macro le doy la ruta dela ubicacion y aparece el .gif

ha resutado 'rebelde' el control webbrowser... no admite ningun otro objeto superpuesto en el :-((
[creo que] tienes -al menos- 2 opciones, de las cuales te paso un ejemplo al final del presente y...

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=1) 'adosar' cerca del control [p.e.] un cuadro de texto con la indicacion 'pertinente' y asignar la macro a este ultimo -?-

2) usar el evento 'gotfocus' del webbrowser -> en el modulo de codigo de la hoja donde esta incrustado [p.e.]...
Private Sub WebBrowser1_GotFocus()
MsgBox "Ejecutando procedimientos..."
End Sub

PERO... existe la 'complicacion' de que dicho evento se 'dispara' SOLO la primera vez que se hace clic sobre el objeto :-((
o sea... si necesitas que la macro pueda ser 're/llamable/ejecutable/'...
-> existe la necesidad de 'poner' a la aplicacion en 'modo de dise#o'... y salir de ese modo [por macros]
solo que no encontre la forma de entrar y salir de manera 'directa' del modo de dise#o... a menos que lo enga#es +/- como sigue:

a) copia/pega las siguientes lineas en el modulo de codigo de 'esa' hoja:
Private Sub WebBrowser1_GotFocus()
Application.OnTime Now, "Exit_Design_Mode" ' esta linea en realidad se ejecuta hasta finalizar este procedimiento :)) '
MsgBox "Ejecutando procedimientos..." ' cambia por una llamada a otras macros o procedimientos directos :) '
Application.CommandBars.FindControl(Id:05).Execute ' entramos en el modo de dise#o... '
End Sub

b) copia/pega las siguientes lineas en un modulo de codigo 'estandar/general/normal/...'
Option Private Module
Sub Exit_Design_Mode()
Dim Tmp As Long
Tmp = Application.CommandBars.FindControl(Id:05).State ' ... y aqui salimos del modo de dise#o :)) '
End Sub

Hola hice la opcion 2 pero me dio un error me dice que no se encontro
la macro de nombre. creo qeuelo que estoy haciendo mal es
es cuando coloco la ultima macro en elmodulo normal que en realidad no
se donde es

me coloco en el editor de la hoja donde tengo la macro y alli coloque
la primera macro que me suministraste luego le doy click en parte
superior y le doy click a la flechita donde dice worsheet y selecciono
la opcion (General) eso eslo que hago pero me produce ese error.

Aparte abra una forma de cambiar el mensaje que aparece en la ventana
que produce MsgBox"..." en la parte superior de color azul
donde dice microsoft Excel.

gracias por tu ayuda

hola, Edixon !

... la opcion 2... me dio un error me dice que no se encontro la macro de nombre...
... creo que lo que estoy haciendo mal es es cuando coloco la ultima macro en el modulo normal
que en realidad no se donde es ...

-> debes insertar un modulo 'nuevo' en el edtor de vba para pegar la macro que no encuentra, NO sobre un modulo 'de clase'

... forma de cambiar el mensaje que aparece en la ventana que produce MsgBox"..."
en la parte superior de color azul donde dice microsoft Excel.

-> para casos distintos de los colores que 'controla' el sistema operativo, es necesario recurrir a los formularios de usuario ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.