엑셀 사진 자동 삽입 메크로

Sub insert_A_Picture_In_Folder()

    Dim rngC As Range                       '현재 선택셀 넣을 변수
    Dim strPath As String                    '경로를 넣을 변수
   
    Set rngC = Selection                      '현재셀을 개체변수에 넣음
    ChDir ThisWorkbook.Path & "\"     '폴더의 디렉토리를 변경
   
    strPath = Application.Dialogs(xlDialogInsertPicture).Show  '파일창 띄움
    If strPath = "False" Then Exit Sub  '취소선택 시 중단
   
    With Selection                                 '선택된 그림파일에서
        .ShapeRange.LockAspectRatio = msoFalse   '좌우고정비율 해제
        .Left = rngC.Left + 2                     '그림왼쪽위치를 현재셀 왼쪽 + 2 위치에
        .Top = rngC.Top + 2                    '그림위쪽 위치를 현재셀 윗쪽 + 2 위치에
        .Height = rngC.Height - 4              '그림 높이를 현재셀 -4 크기로
        .Width = rngC.Width - 4               '그림 폭을 현재셀 -4 크기로
    End With
   
    Set rngC = Nothing                           '개체변수 초기화(메모리 비우기)
End Sub