Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Detalle con WebBrowser

36 views
Skip to first unread message

Edixon

unread,
Jul 26, 2008, 8:17:32 PM7/26/08
to
Hola grupo, tengo un probleblita, estoy usando la macro que a
continuación expongo

Sub AnimandoWebBrowser()
Worksheets("Hoja1").WebBrowser.Navigate _
"C:\Misimagenes\Home1.swf"
End Sub

Ella funciona perfecto el detalle esta cuando me voy a otra hoja
(2,3,4,5,etc.), cuando vuelvo a la hoja1 me aparece el siguiente
mensaje:

Error en el scrip de esta pag.
Linea 4
carácter 5
error El objeto no acepta esta propiedad o método
cñodigo 0
URL C:\Misimagenes\Home1.swf

¿Desea continuar ejecutando Scripses esta página?

Simplemente le doy Si y se continua mostrando el SWF.

El detalle es que es muy tedioso hacer esto cada vez que tengo que ir
a la Hoja1

De antemano gracias por su ayuda

Héctor Miguel

unread,
Jul 27, 2008, 1:29:02 AM7/27/08
to
hola, Edixon !

para mostrar videos *.swf, me temo que un objeto webbrowser no sea lo mas indicado

si tu necesidad no va mas alla de un video o dos (y de tamano "ligero") prueba a "incrustarlos" en tu hoja
(OJO: se incrusta el video completo, por esto te comento lo del tamano "ligero" y NO MAS de uno o dos)

1) incrusta en tu hoja de calculo un control ShockwaveFlash
-> desde la barra de herramientas "cuadro de controles" pulsas en el boton "mas controles..."
y seleccionas dicho control (lo encuentras por orden alfabetico)

2) estando aun en modo de diseno, activa el editor de vba -> atajo de teclado: {Alt}+{F11}
a) selecciona el objeto en el desplegable del cuadro de propiedades (en caso de no ser el elemento activo)
b) en la propiedad "Movie" -> introduce/escribe/(copia/pega) la ruta completa a donde esta en tu DD el archivo *.swf
(obviamente dicho archivo debera estar previamente existente en algun directorio de tu pc)
c) (de regreso en la hoja) ajusta las dimensiones segun sea necesario
d) terminas con el modo de edicion, <guardas tu archivo>, haces alguna/s prueba/s, y..

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> ... estoy usando la macro que a continuación expongo


>
> Sub AnimandoWebBrowser()
> Worksheets("Hoja1").WebBrowser.Navigate _
> "C:\Misimagenes\Home1.swf"
> End Sub
>

> ... funciona perfecto el detalle esta cuando me voy a otra hoja (2,3,4,5,etc.)


> cuando vuelvo a la hoja1 me aparece el siguiente mensaje:
> Error en el scrip de esta pag.
> Linea 4

> caracter 5
> error El objeto no acepta esta propiedad o metodo codigo 0
> URL C:\Misimagenes\Home1.swf
> Desea continuar ejecutando Scripses esta pagina?

Edixon

unread,
Jul 27, 2008, 11:06:22 PM7/27/08
to
Excelente muy practico y sencillo, muchas gracias era lo que
necesitaba.

Bendiciones

0 new messages