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

[곽완근]

안녕하세요? 다음과 같이 For each 문으로 각각의 선택영역을 접근하시면 됩니다.

Sub 사진넣기()

    Dim strPath As Variant
    Dim objPic As Object
    Dim r      As Range
   
    strPath = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.emf;*.wmf", _
              Title:="이미지 삽입")
    If strPath = False Then
        Exit Sub
    End If
   
    For Each r In Selection
       
        If r.Column Mod 3 = 0 Then
       
            Set objPic = ActiveSheet.Pictures.Insert(strPath)
           
            MsgBox r.MergeArea.Cells.Count & "," & r.Address
           
            With objPic
                .ShapeRange.LockAspectRatio = msoFalse
                .Top = r.Top
                .Left = r.Left
                .Height = r.Offset(1).Top - r.Top
                .Width = r.Offset(, 1).Left - r.Left
            End With
           
        End If
   
    Next
   
End Sub

[히지]

안녕하세요. 명확한 답변 감사합니다!!
VBA 테스트 해보니 'MsgBox호출하는데
하는 이유에 대한 이해를 잘 모르겠습니다. ㅠㅠ

그리고 다른 빈 행(O행 이상)가면 오류가 나는거 같은데 Sheet 전체 셀을 범위로 잡아 보고 싶은데
가능한지 여부도 묻고 싶습니다.

감사합니다.