[VBA질문] 임의로 다중 선택된 셀에 이미지 중복 삽입

[히지]

안녕하세요.

사진 삽입 VBA 공부를 하다가 안되는 부분이 있어서 문의 드립니다.

현재 선택한 셀에 그림삽입은 되는데... 여러 셀을 선택해도 같은 그림을 삽입하고자 합니다.

어디서부터 풀어야 할지 막막합니다.

잘못된 부분에 대해서도 많은 도움 부탁드립니다.

감사합니다.

Sub 사진넣기()
'
' 사진넣기 Macro
' 사진넣기
'
' 바로 가기 키: Ctrl+q
'

    Dim strPath As Variant
    Dim objPic As Object
 
    strPath = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.emf;*.wmf", _
              Title:="이미지 삽입")
    If strPath = False Then
        Exit Sub
    End If
    

    Set objPic = ActiveSheet.Pictures.Insert(strPath).ShapeRange
        With objPic
            .LockAspectRatio = msoFalse
            .Height = Selection.Height - 3
            .Width = Selection.Width - 3
            .Left = Selection.Left
            .Top = Selection.Top
        End With
       
    objPic.Select
    Selection.Copy
    ActiveSheet.Pictures.Paste.Select
    objPic.Delete

End Sub
 

사진_정리.xlsm

[녹색숲]

좋은질문입니다.