Forums Últimos mensajes - Powered by IBM
 

VBA - Cómo insertar una imagen del formulario a Excel?

18/05/2007 - 11:31 por Don Juan | Informe spam
Hola a todos.
Necesito insertar una imagen que está en un formalario y no en una posición
física.
La imagen se llama "picture_logo" que la tengo en el formulairo pincipal,
cuando hago click en "Aceptar" este logo debería copiarse en una celda A1
por ejemplo.
He intentado algo así:
Worksheets("Resultado").Range("A1").Pictures.Insert(UserForm1.picture_logo).Select
Pero no funciona

Alguien sabe cómo hacerlo?
Gracias de antemano.
Excel 2003.
 

Leer las respuestas

#1 Héctor Miguel
19/05/2007 - 10:15 | Informe spam
hola, Juan !

Necesito insertar una imagen que esta en un formalario y no en una posicion física.
La imagen se llama "picture_logo" que la tengo en el formulairo pincipal
cuando hago click en "Aceptar" este logo deberia copiarse en una celda A1 por ejemplo.
He intentado algo asi:
Worksheets("Resultado").Range("A1").Pictures.Insert(UserForm1.picture_logo).Select
Pero no funciona... como hacerlo?



suponiendo que el boton de "Aceptar' se llama CommandButton1
prueba con algo +/- como lo siguiente [en el evento '_click' de ese boton en el modulo de codigo del formulario]:

Private Sub CommandButton1_Click()
SavePicture picture_logo.Picture, "Mi_Logo.jpg"
Worksheets("resultado").Pictures.Insert "mi_logo.jpg"
Kill "mi_logo.jpg"
End Sub

-> OJO: la imagen sera insertada EN la celda 'activa' de la hoja especificada
[probablemente] sera necesario activar primero hoja y celda antes de pegar la imagen
o buscar otros metodos de insertar el objeto en la hoja ;)

saludos,
hector.

Preguntas similares