Macro para comprimir e insertar imagen en excel

[karras]

Hola amig@s!

Estoy intentado crear una macro que inserte una imagen en Excel pero que antes la comprima.

Le he dado muchas vueltas a este tema pero no hay manera, lo único que he conseguido es lanzar la ventana de compresión de imágenes y pasarle los valores para que la comprima, pero esto a veces funciona y otras veces no...

Set octl = Application.CommandBars.FindControl(ID:=6382)

Application.SendKeys "%w~~"

No se si hago algo mal... o hay otra forma mejor.

Un saludo, gracias de antemano

[karras]

Hola amig@s!

Estoy intentado crear una macro que inserte una imagen en Excel pero que antes la comprima.

Le he dado muchas vueltas a este tema pero no hay manera, lo único que he conseguido es lanzar la ventana de compresión de imágenes y pasarle los valores para que la comprima, pero esto a veces funciona y otras veces no...

Set octl = Application.CommandBars.FindControl(ID:=6382)

Application.SendKeys "%w~~"

No se si hago algo mal... o hay otra forma mejor.

Un saludo, gracias de antemano

He de añadir que el código que he puesto antes solo funciona el la versión 2003, y necesito que funcione en 2007 y 2010. En estas no funciona porque ambas tienen una ventana diferente con lo cual el ID cambia, pero no consigo saber cual es.

Si alguien lo sabe, fantástico! Des todas formas si alguien sabe algún método mejor, seria genial!