¿Cómo insertar una imagen en excel a partir del valor de una celda?

He probado con una macro que encontré en este sitio, pero ahora me falta que recorra los registros (filas) y que coloque en la celda que corresponda la imagen que necesito si esta existe

La macro que poseo es esta

Sub insertafoto()
'tomar el nombre de una celda y poner una foto
'Por.Dam
'Nombre del directorio
carpeta = "V:\FotosExpedientes\"
'el nombre de la foto deberá estar en alguna celda
imagen = Range("J17")
'Celda donde se va a poner la foto
Range("K17").Select
ActiveSheet.Pictures.Insert(carpeta & imagen).Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Selection.ShapeRange.LockAspectRatio = msoFalse
'modificar las siguientes medidas para ajustar el tamaño de la foto
Selection.ShapeRange.Height = 65#
Selection.ShapeRange.Width = 65#
Selection.ShapeRange.Rotation = 0#
End Sub

Gracias por la ayuda.

Añade tu respuesta

Haz clic para o