Excel - セル内の写真とファイル内の対応する写真

Question

.jpg ファイル名がリストされている列があります。実際の写真を表示したいのですが、どうすればよいですか?

Answer 1

列Aにファイルスペックが含まれているとします。.jpg次のようなファイル:

C:\テストフォルダ\sample.jpg

次に、この小さなマクロによって実際の写真が列 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