Excel – Foto in Zelle mit entsprechendem Foto aus Datei

Question

Ich habe eine Spalte mit aufgelisteten JPG-Dateinamen. Ich möchte, dass das eigentliche Foto angezeigt wird. Wie kann ich das machen?

Answer 1

Angenommen, Spalte A enthält die Dateispezifikation des.jpgDateien wie:

C:\Testordner\sample.jpg

Anschließend platziert dieses kleine Makro die eigentlichen Bilder in Spalte 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