비베초보님..

안녕하세요? ^^

첨부파일을 살펴봤는데요..

다이얼로그 시트를 사용하신 것 같네요? ^_^;;

다이얼로그 시트는 MS에서 더 이상 지원하지 않기로 결정했으니 더이상 사용하지 않는게 좋겠습니다.

특정 파일을 불러오거나 저장할때는 Application.FileDialog를 사용하시면 됩니다.

아래 샘플 코드를 참고하세요..

Sub sampleFilePicker()

    Dim i As Integer

    With Application.FileDialog(msoFileDialogFilePicker)

        .Filters.Add "jpg 파일", "*.jpg", 1

        .InitialFileName = "*.*"

        .Title = "Select image Files to insert..  "

        If .Show = vbTrue Then

            For i = 1 To .SelectedItems.Count

ActiveSheet.Shapes.AddPicture(FileName:=.SelectedItems(i), _

                    LinkToFile:=msoFalse, _

                    SaveWithDocument:=msoTrue, _

                    Left:=ActiveCell.Left, _

                    Top:=ActiveCell.Top, _

                    Width:=ActiveCell.Width, _

                    Height:=ActiveCell.Height)

            Next i

        End If

    End With

End Sub

어차피.. 유저폼에 이미지를 집어넣을때,

이미지 파일을 선택하게 되어 있으니.. 유저폼에 이미지를 집어 넣을때 이미지 파일의 경로를 변수에 저장해두었다가..

확인 버튼을 누르면.. 해당 경로의 이미지 파일을 워크시트에 삽입해주면 될 것 같습니다.

도움이 되셨기를..