Kodda debug hatası

[1Al2Ver]

Merhabalar,

Bir kod bütünü içinde olan aşağıdaki kod ile ;
'Eğer bir resim bulunduysa
If Not rngBul Is Nothing Then
'Önce, Resmin yerleştirileceği alanda
'herhangi bir resim varsa, onları temizle
For Each oRsm In ActiveSheet.Pictures
If Not Intersect(rngResimAlani, oRsm.TopLeftCell) Is Nothing Then
Rsm.Delete
End If
Next

.. ilgili hücredeki, resimi temizliyor, ancak kırmızı işaretli debug hatası vermekte

Resim A1:A6 arasında ve A7'den seçiliyor, A7'den seçim yapıldığında önce "Type mismatch" hatası ardından da For Each oRsm In ActiveSheet.Pictures hatası almaktayım,

İlginç olan kodu başka bir projeden bire bir kopyaladım, şayet yukarıdaki kodu silersem hata almıyorum, ancak , A7'den yeni bir seçim yapıldığında, A7'nin karşılığında resim yok ise, eski resim yerinde kalıyor,

Verilen debug hatası ne anlama geliyor ve nasıl çözülebilir ?

Teşekkür ederim.

 

[Ayhan Ercan]

Merhaba Sayın 1Al2Ver

Dim oRsm as Picture yerine
Dim oRsm as Object yapın ve Hatalı olan satırın 2 altında
Rsm.Delete olan yeride oRsm.Delete yaparak deneyiniz...

 

[1Al2Ver]

Merhaba Sayın 1Al2Ver

Dim oRsm as Picture yerine
Dim oRsm as Object yapın ve Hatalı olan satırın 2 altında
Rsm.Delete olan yeride oRsm.Delete yaparak deneyiniz...

Sayın Ayhan Ercan merhaba,

Yoğunluktan teşekkür için geciktim, özür diliyorum,

Çözüm için teşekkür ederim, saygılarımla.

 

[Ayhan Ercan]

Sayın Ayhan Ercan merhaba,

Yoğunluktan teşekkür için geciktim, özür diliyorum,

Çözüm için teşekkür ederim, saygılarımla.

Rica ederim sn 1Al2Ver
İyi çalışmalar...