Botones animados en excel

hola, Oszkar !

Para el caso de incrustar un archivo animado (GIF), logro que funcione con la opcion B (en el modulo de codigo estandar).
Con la opcion A (evento Activate en el modulo de codigo de hoja)
cuando inserto el objeto en la hoja de Excel y le doy ver codigo, aparece lo siguiente:
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) [...]
despues de Private y antes de Sub, al salir del modo dise#o no aparece la imagen.

=> el evento '_activate' corresponde al objeto worksheet, o sea, busca/activa/... los eventos de la hoja... NO los del objeto incrustado ;)

Por otra parte, intente hacer lo mismo con un objeto Windows MediaPlayer y me ocurre lo mismo, me aparece el siguiente codigo:
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) [...]
Al establecer el codigo MediaPlayer1.URL = " C:\Mi archivo.wmv", no funciona
a diferencia de los archivos GIF, en la ventana de propiedades aparece una linea para definir la URL, con lo que logre que funcionara.

=> es igual establecer la linea con la direccion URL por codigo... que en la ventana de propiedades del objeto incrustado...
el detalle vuelve a ser que el evento '_activate' corresponde al objeto worksheet, NO al objeto incrustado ;)

haz la prueba con algo +/- como el siguiente ejemplo [segun el objeto de que se trate]:

Private Sub Worksheet_Activate()
WebBrowser1.Navigate "c:uta y\carpetas donde esta\miGIFanimado.gif"
End Sub

Private Sub Worksheet_Activate()
MediaPlayer1.URL = "c:uta y\carpetas donde esta\miAVIanimado.AVI"
End Sub

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

Estimado Héctor, de nuevo muchas gracias por tu amable ayuda y paciencia.

Con tus concejos logré ver el error que cometía.

Muchas gracias.
Saludos,

Oszkar M^


"Héctor Miguel" escribió:

hola, Oszkar !

> Para el caso de incrustar un archivo animado (GIF), logro que funcione con la opcion B (en el modulo de codigo estandar).
> Con la opcion A (evento Activate en el modulo de codigo de hoja)
> cuando inserto el objeto en la hoja de Excel y le doy ver codigo, aparece lo siguiente:
> Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) [...]
> despues de Private y antes de Sub, al salir del modo dise#o no aparece la imagen.

=> el evento '_activate' corresponde al objeto worksheet, o sea, busca/activa/... los eventos de la hoja... NO los del objeto incrustado ;)

> Por otra parte, intente hacer lo mismo con un objeto Windows MediaPlayer y me ocurre lo mismo, me aparece el siguiente codigo:
> Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long) [...]
> Al establecer el codigo MediaPlayer1.URL = " C:\Mi archivo.wmv", no funciona
> a diferencia de los archivos GIF, en la ventana de propiedades aparece una linea para definir la URL, con lo que logre que funcionara.

=> es igual establecer la linea con la direccion URL por codigo... que en la ventana de propiedades del objeto incrustado...
el detalle vuelve a ser que el evento '_activate' corresponde al objeto worksheet, NO al objeto incrustado ;)

haz la prueba con algo +/- como el siguiente ejemplo [segun el objeto de que se trate]:

Private Sub Worksheet_Activate()
WebBrowser1.Navigate "c:uta y\carpetas donde esta\miGIFanimado.gif"
End Sub

Private Sub Worksheet_Activate()
MediaPlayer1.URL = "c:uta y\carpetas donde esta\miAVIanimado.AVI"
End Sub

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