Option Explicit
Sub Belirli_Bir_Alandaki_Resimleri_Sil()
Dim Resim As Picture, Alan As Range
Set Alan = [COLOR=red]Range("B11:D20")[/COLOR]
For Each Resim In ActiveSheet.Pictures
If Not Intersect(Resim.TopLeftCell, Alan) Is Nothing Then
Resim.Delete
End If
Next
Set Alan = Nothing
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub