엑셀 VBA에서 그림을 불러와 삽입하는 코드 2

Sub ImageToCell()

Dim PicPath As String

Dim PicFileName As String

    If ActiveSheet.Pictures().Count > 0 Then ActiveSheet.Pictures.Delete

    PicPath = ThisWorkbook.Path & "\"

    PicFileName = "Kanghanet.jpg"

    '-- 그림 파일의 실제 확장자에 맞게 변경(예: Kanghanet.png, Kanghanet.gif 등)

    With ActiveSheet.Pictures.Insert(Filename:=PicPath & PicFileName)

        .Left = Range("C3").Left

        .Top = Range("C3").Top

        '.Width = Range("C3:g3").Width

        '.Height = Range("C3:C7").Height

        '-- 외곽선 설정

        .ShapeRange.Line.Weight = 1.5

        '.ShapeRange.Line.Style = msoLineThickThin

        '.ShapeRange.Line.Visible = msoTrue '/ msoFalse

        .ShapeRange.Line.ForeColor.SchemeColor = 2

    End With

End Sub