MACRO PARA INSERTAR IMAGENES

Daniel, Hola, soy Rodrigo de Chile, mira las macros consisten en procesos
repetitivos que se almacenan en un comando, haz hecho alguna macro tu?, mira
contactame a mi mail :
o mi msn :

"Daniel Padilla Cañamero" escribió:

Hola a todos espero q me puedan ayudar, tengo esta macro q inserta una imagen

Sub InsertarIMG()
Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Trabaja bien pero me gustaria llegar mas lejos en el sentido de que como
haria para q se ponga en un rango de celdas q yo considere necesario una vez
seleccionada la imagen.
Mas q todo lo necesito para poner fotos tamaño carnet en una planilla de
pagos.

Gracias por su tiempo y apoyo
Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú

Hola Daniel,

Prueba el codigo que te pongo a continuacion. Este macro inserta la imagen
de la ruta preestablecida al pie de la fila 5 y a la derecha de la columna
C, es decir a partir de la celda [D6], y al 50% del tamaño original. Cambia
las variables Ruta, Izquierda, Arriba y Escala segun tus necesidades.

Saludos,
KL

Sub test()
Dim Imagen As Shape, Ruta As String
Dim Izquierda As Single, Arriba As Single, Escala as Single

'La ruta y el nombre del archivo con la imagen
Ruta="E:\Imagenes\0004613.jpg"
'los puntos desde el extremo izquierdo de la hoja
Izquierda = Columns("A:C").Width
'los puntos desde el extremo superior de la hoja
Arriba = Rows("1:5").Height
Escala=0.5 'o sea 50% del tamaño original.

Set Imagen = ActiveSheet.Shapes.AddPicture _
(Ruta, True, True, Izquierda, Arriba, 1, 1)
With Imagen
.ScaleHeight Escala, msoCTrue, msoScaleFromTopLeft
.ScaleWidth Escala, msoCTrue, msoScaleFromTopLeft
End With
End Sub


"Daniel Padilla Cañamero"
wrote in message news:

Hola a todos espero q me puedan ayudar, tengo esta macro q inserta una
imagen

Sub InsertarIMG()
Application.Dialogs(xlDialogInsertPicture).Show
End Sub

Trabaja bien pero me gustaria llegar mas lejos en el sentido de que como
haria para q se ponga en un rango de celdas q yo considere necesario una
vez
seleccionada la imagen.
Mas q todo lo necesito para poner fotos tamaño carnet en una planilla de
pagos.

Gracias por su tiempo y apoyo
Saludos Cordiales
Daniel Padilla Cañamero
Lima-Perú