VBA - Cómo insertar una imagen del formulario a Excel?
Don Juan
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.
Héctor Miguel
> 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.