이미지 파일 제거 코드

         
    Range("E4:E9").ClearContents
    Range("C11:C17").ClearContents
   

   '// 이미지 파일 제거 코드  
    Dim s As Picture
    Dim rng As Range
    Set rng = Range("A4:C9")
        
    For Each s In ActiveSheet.Pictures
    
        If Not Intersect(rng, s.TopLeftCell) Is Nothing Then
            
            s.Delete
            
        End If
    

   Next s
   

---