Excel: foto en la celda con la foto correspondiente del archivo

Question

Tengo una columna con nombres de archivos .jpg enumerados. Quiero que aparezca la foto real. ¿Cómo puedo hacer eso?

Answer 1

Digamos que la columna A contiene la especificación de archivo del.jpgarchivos como:

C:\TestFolder\sample.jpg

Luego, esta pequeña macro colocará las imágenes reales en la columna B:

Sub PicturePlacer()
    Dim s As String
    Dim r As Range, rB As Range
    For Each r In Intersect(Range("A:A"), ActiveSheet.UsedRange)
        Set rB = r.Offset(0, 1)
        s = r.Value
        With ActiveSheet.Shapes
            .AddPicture s, False, True, rB.Left, rB.Top, rB.Width, rB.Height
        End With
    Next r
End Sub