Excel - 儲存格中的照片與文件中的對應照片

Question

我有一列列出了 .jpg 檔案名稱。我想讓真實的照片出現。我怎樣才能做到這一點？

Answer 1

假設 A 列包含文件規範.jpg文件如：

C:\TestFolder\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