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