excele yapıştırılan resim görüntüsünü silmek

[ENMERİS]

Merhaba,
Ekteki dosyadaki iptalleri, tek tek üzerine tıklayarak silebiliyorum. Bunların daha kolay bir yolu silme yolunu sizler mutlaka biliyorsunuzdur.
Teşekkürler

 

[Necdet]

Merhaba,

F5
Özel
Nesneler
Tamam
Del Tuşu

 

[ockucukay]

Sub Sil()
Dim sekiL As Shape

For Each sekiL In ActiveSheet.Shapes
If Not Intersect(sekiL.TopLeftCell, Range("A2:U300")) Is Nothing Then
sekiL.Delete
End If
Next
End Sub

bu kodu denermisiniz?

 

[ENMERİS]

İnanmıyorum ... çok çok teşekkürler... seviyorum sizi