Botones animados en excel

11/02/2007 - 00:35 por Trespintas | Informe spam
¿Cómo insertar Botones animados o Gifs animados en excel?

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/02/2007 - 04:16 | Informe spam
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.
Respuesta Responder a este mensaje
#2 Oszkar M^
14/02/2007 - 09:24 | Informe spam
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.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida