jose romero

Creo que es de esta forma: Donde aparece nombreimg = img.Name Reemplazar por nombreimg = img.TopLeftCell.Offset(, 1)

Se debe cambiar: If img.Type = msoPicture Then img.Delete Por: If img.Type = 11 Then img.Delete

Esto funciona perfecto, solo se debe identificar de manera correcta la ubicación del archivo donde están contenidas las imágenes. Sub Fotos() ruta = "D:\Datos\Imagenes\" For i = 2 To Range("B" & Rows.Count).End(xlUp).Row arch = Dir(ruta & Cells(i,...