Excel - Macro insertar imágenes

 
Vista:

Macro insertar imágenes

Publicado por Alberto (1 intervención) el 05/11/2009 07:20:39
Hola a todos

Quisiera insertar fotos carnet en las fichas de los equipos de una competición aficionada

Las fotos van nombradas con el número de dni (columna B8:B22) en formato jpg y se encuentran en la subcarpeta fotos\"celda L20"\

El fichero que adjunto tiene sólamente una hoja, pero el que yo utilizo tiene 110

El tamaño máximo de la foto no puede exceder del ancho de las columnas T y W (10) ni el alto de 5 filas de 12,75 (64,50)

La foto de la fila 8 se inserta en t 25 (combinada hasta t29)
La foto de la fila 9 se inserta en w25 (combinada hasta w29)
La foto de la fila 10 se inserta en t 31 (combimada hasta t35)
La foto de la fila 11 se inserta en w 31 (combimada hasta w35), etc

Muchas gracias por echarme una mano.

He encontrado en los foros algo aproximado que podría valer, pero ejecuto la macro y la foto no se sitúa en la celda t25 como le indico...
Sub insertar_imagen_ST()
img = [b8] 'nombre de la imagen sin la extension
equ = [l20] 'carpeta del equipo
With ActiveSheet
On Error Resume Next 'si no existe salta el error por objeto inexistente
.Shapes("copia").Delete 'si existe lo elimina
Range("t25").Select 'selecciona el rango
'inserta la imagen y le asigna un nombre(en este caso 'copia'),que sera importante para el borrado posteriormente
.Pictures.Insert _
(ThisWorkbook.Path & "\equipos\" & equ & "\" & img & ".jpg").Name = "copia"
.Shapes("copia").Width = 10 'ajusta el ancho de la imagen
.Shapes("copia").Height = 64 'ajusta el alto
End With
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder