Foro Excel

Hola nuevamente mis estimados..., estuve buscando en el foro sobre como insertar imagenes, pues solo encontré como cargar imagenes a un formulario desde un archivo externo.
Lo que quiero hacer es insertar un logotipo ya existente en un userform a la hoja activa en un rango de celdas al presionar un botón.
Espero me puedan ayudar, ya que mis conocimientos de vba son muy limitados, por eso recurro a los expertos del foro.
Gracias de antemano por su gentil respuesta.

Hola:

Hay varias formas de responder a tu consulta.

Sube un archivo con el formulario y explica tu cuestión con un ejemplo.

Saludos.

Gracias por la sugerencia Antoni...
Bueno, en el adjunto, hay un formulario que contiene una iamagen y un botón, con el cual deseo pasar la imagen del form a la hoja activa de excel, en la celda A1.
Gracias por su gentil colaboración...

Hola:

He insertado un control Image en Hoja1 con la propiedad .Visible = False

Cuando pulses el botón, la imagen se visualizará en la celda activa de 3 celdas de ancho por 8 celdas de alto.

Modifícalo a voluntad.

Saludos

Gracias Antoni, era justo lo que necesitaba...

Hola ventor 666
Me uno a la consulta que ya a sido resuelta por antoni , de todas maneras te adjunto un ejemplo con control image en la hojar
saludos cordiales
De: Arequipa-Perú

Gracias, por su colaboración, ahora bien, yendo un poco mas allá, estuve revisando el código de Antoni que me parece bueno, pero se me pasó por la cabeza el hacer la aplicación como un complemento, asi que para eso necesito que el control image en la hoja activa se cree en tiempo de ejecución, asi que el grabador de macros me dió el siguiente código:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=0, Width:=175.5, Height:=70.5) _
.Select
Luego inserté el código de Antoni, quitándole la propiedad visible, pero no consigo que la imagen del form pase a la imagen creada en la hoja1, es posible hacer esto?

Me olvidaba al presional el botón me envia al editor VBA y arroja el mensaje de error:
Error de compilación
No se encotró el método o dato miembro, y me resalta esto:

Hoja1.Image1.Picture = Image1.Picture

Hola :

A ver si con esto puedes hacer algo:

Código: Seleccionar todo

'Inserta una imagen en la celda activa de la hoja activa
'-------------------------------------------------------
ActiveSheet.Pictures.Insert("C:\Imagen.jpg").Select 'Inserta la imagen
With Selection.ShapeRange
  .LockAspectRatio = False 'Permite modificar la imagen
  .Top = Range("A2").Top   'Distancia al borde superior
  .Left = Range("B2").Left 'Distancia al borde izquierdo
  .Height = 40             'Alto de la imagen
  .Width = 60              'Ancho de la imagen


Saludos