Gif o Flash en Excel

16/11/2004 - 05:34 por Bart | Informe spam
Hola Grupo:

Quisiera saber como incluir un archivo .Gif o Flash en Excel y que este
tenga movimiento. O que otro tipo de archivo acepta bien sea directamente en
una hoja de calculo o atraves de un formulario.

Gracias por su amable respuesta.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
16/11/2004 - 07:52 | Informe spam
hola, Bart !

... como incluir un archivo .Gif o Flash en Excel y que este tenga movimiento.
... que otro tipo de archivo acepta bien sea directamente en una hoja de calculo o atraves de un formulario.



para 'ver' secuencias de animacion 'en' [hojas de] excel ...
a) guardar el libro con formato de pagina web [y 'verlo' en el webbrowser]
b) mostrar las secuencias animadas [gif, ani, ...] 'en' formularios de usuario
c) 'mostrar' [y ocultar] por codigo secuencias de imagenes incrustadas en la/s hoja/s
[para esta ultima 'alternativa' habria que 'desmantelar' el gif en sus imagenes 'individuales']

ejemplos para la opcion b, usando controles de imagen como webbrowser o winmedia:
[quizas necesites agregarlos al cuadro de controles del editor de vba para formularios]
[=> click-derecho => mas controles... =>agregar el tipo de control apropiado]

-> 'muestra' el formulario 'SIN modo' ['no modal'] =>UserForm1.Show vbModeLess<-> pon los siguientes codigos en el evento '_initialize' o '_activate' =>del formulario<
a) 'WebBrowser' [p.e.]
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
"C:\Mis documentos\Mis imágenes\miGIFanimado.gif" & _
"'></img></body></html>"

b) 'WindowsMediaPlayer' [p.e.]
MediaPlayer1.Filename = _
"C:\Mis documetnos\Mis imágenes\miArchivo.avi"

saludos,
hector.
Respuesta Responder a este mensaje
#2 Leandro
16/11/2004 - 17:32 | Informe spam
Hola, se puede de una manera mucho más sencilla para las
animaciones en flash y es la siguiente:

En la HOJA que quieras, pones el control ShockwaveFlash
(cuadro de controles/mas controles)

En un modulo pones el siguiente código:
Hoja1.ShockwaveFlash1.Movie =
Application.ActiveWorkbook.Path & _
"/logoAcerca.swf"
Hoja1.ShockwaveFlash1.Play


Para este caso la película debe estar guardada en la misma
carpeta que el libro de Excel que lo contiene. Si no lo
quieres así reemplaza el Application.ActiveWorkbook.Path
por la ruta que quieras.

Simple.

Prueba las opciones del control, ahí puedes cambiar la
escala y las propiedades que quieras.
Desde el codigo puedes modificar cuando quieras detenerla,
que continue, cambiar de película, etc...

Saludos

hola, Bart !

... como incluir un archivo .Gif o Flash en Excel y que




este tenga movimiento.
... que otro tipo de archivo acepta bien sea




directamente en una hoja de calculo o atraves de un
formulario.

para 'ver' secuencias de animacion 'en' [hojas de]


excel ...
a) guardar el libro con formato de pagina web [y 'verlo'


en el webbrowser]
b) mostrar las secuencias animadas [gif, ani, ...] 'en'


formularios de usuario
c) 'mostrar' [y ocultar] por codigo secuencias de


imagenes incrustadas en la/s hoja/s
[para esta ultima 'alternativa' habria


que 'desmantelar' el gif en sus imagenes 'individuales']

ejemplos para la opcion b, usando controles de imagen


como webbrowser o winmedia:
[quizas necesites agregarlos al cuadro de controles del


editor de vba para formularios]
[=> click-derecho => mas controles... =>agregar el tipo


de control apropiado]

-> 'muestra' el formulario 'SIN modo' ['no modal']


=>UserForm1.Show vbModeLess<>-> pon los siguientes codigos en el evento '_initialize'
o '_activate' =>del formulario<>
a) 'WebBrowser' [p.e.]
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
"C:\Mis documentos\Mis imágenes\miGIFanimado.gif" & _
"'></img></body></html>"

b) 'WindowsMediaPlayer' [p.e.]
MediaPlayer1.Filename = _
"C:\Mis documetnos\Mis imágenes\miArchivo.avi"

saludos,
hector.


.

Respuesta Responder a este mensaje
#3 Leandro
16/11/2004 - 17:41 | Informe spam
perdon, se me paso.
tambien se puede incrustar la animacion flash en el
control para no tener que depender de una ruta. Revisa las
propiedades del control ShockwaveFlash

saludos.

Hola, se puede de una manera mucho más sencilla para las
animaciones en flash y es la siguiente:

En la HOJA que quieras, pones el control ShockwaveFlash
(cuadro de controles/mas controles)

En un modulo pones el siguiente código:
Hoja1.ShockwaveFlash1.Movie =
Application.ActiveWorkbook.Path & _
"/logoAcerca.swf"
Hoja1.ShockwaveFlash1.Play


Para este caso la película debe estar guardada en la


misma
carpeta que el libro de Excel que lo contiene. Si no lo
quieres así reemplaza el Application.ActiveWorkbook.Path
por la ruta que quieras.

Simple.

Prueba las opciones del control, ahí puedes cambiar la
escala y las propiedades que quieras.
Desde el codigo puedes modificar cuando quieras


detenerla,
que continue, cambiar de película, etc...

Saludos

hola, Bart !

... como incluir un archivo .Gif o Flash en Excel y






que
este tenga movimiento.
... que otro tipo de archivo acepta bien sea




directamente en una hoja de calculo o atraves de un
formulario.

para 'ver' secuencias de animacion 'en' [hojas de]


excel ...
a) guardar el libro con formato de pagina web [y 'verlo'


en el webbrowser]
b) mostrar las secuencias animadas [gif, ani, ...] 'en'


formularios de usuario
c) 'mostrar' [y ocultar] por codigo secuencias de


imagenes incrustadas en la/s hoja/s
[para esta ultima 'alternativa' habria


que 'desmantelar' el gif en sus imagenes 'individuales']

ejemplos para la opcion b, usando controles de imagen


como webbrowser o winmedia:
[quizas necesites agregarlos al cuadro de controles del


editor de vba para formularios]
[=> click-derecho => mas controles... =>agregar el tipo


de control apropiado]

-> 'muestra' el formulario 'SIN modo' ['no modal']


=>UserForm1.Show vbModeLess<>>-> pon los siguientes codigos en el evento '_initialize'
o '_activate' =>del formulario<>>
a) 'WebBrowser' [p.e.]
WebBrowser1.Navigate _
"about:<html><body scroll='no'><img src='" & _
"C:\Mis documentos\Mis imágenes\miGIFanimado.gif" & _
"'></img></body></html>"

b) 'WindowsMediaPlayer' [p.e.]
MediaPlayer1.Filename = _
"C:\Mis documetnos\Mis imágenes\miArchivo.avi"

saludos,
hector.


.



.

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