[엑셀 매크로] 사진 여러장 입력

아래의 코딩은 인터넷으로 검색해서 사용중인데

한번에 사진 파일 한장씩만 넣을 수 있네요.

이걸 한번에 여러장의 선택해서 삽입할 수 있는 방법은 없을까요?

============================ ============================ ============================ ============================

Sub ImportPictureFile()

  Dim strFile As String

    Dim sht As Worksheet

    Dim pic As Object

    Application.ScreenUpdating = True

    Set sht = ActiveSheet

    strFile = Application.GetOpenFilename(filefilter:="모든파일(*.*),*.*", _

        Title:="삽입할 그림을 선택하세요"

    If strFile = "False" Then

        MsgBox "아무 그림도 선택되지 않았습니다"

        Exit Sub

    End If

    Dim obj As Object

    Dim rnginsert As Range

    Set obj = sht.Pictures.Insert(strFile)

    Set rnginsert = Selection

    With obj

        .ShapeRange.LockAspectRatio = msoFalse

        .Top = rnginsert.Top

        .Left = rnginsert.Left

        .Height = rnginsert.Height

        .Width = rnginsert.Width

    End With

End Sub

위의 매크로로 작업하면 원본 사진의 경로나 파일명이 변경되면 엑셀 파일에서 수정이 안되는건 알고 있습니다.

이부분은 수정없이 현상태에서 한번에 삽입할 수 있는 파일의 갯수를 여러장 삽입할 수 있으면 합니다.