Soru Aktif Sayfalardaki Resimleri Silerken, Makro ve Commandbutton düğmelerinin silinmemesi

[ultraslan38080]

activesheet.DrawingObjects.Delete

yukardaki kodu çalıştırdığımda, sayfadaki resimlerle beraber varolan tüm makro ve commandbutton düğmeleri de siliniyor. Ama ben sadece resimlerin silinip, makro ve commandbutton düğmelerinin kalmasını istiyorum. Bunu Nasıl yapabilirim?

 

[muygun]

Merhaba;

Sub rsm_sil()
Set Alan = Range("a1:z100")
For Each resimm In ActiveSheet.Pictures
If Not Intersect(resimm.TopLeftCell, Alan) Is Nothing Then
resimm.Delete
End If
Next
Set Alan = Nothing
End Sub

İle alan belirleyerek alandaki resimleri silebilirsiniz.
İyi çalışmalar.

 

[ultraslan38080]

Merhaba;

Sub rsm_sil()
Set Alan = Range("a1:z100")
For Each resimm In ActiveSheet.Pictures
If Not Intersect(resimm.TopLeftCell, Alan) Is Nothing Then
resimm.Delete
End If
Next
Set Alan = Nothing
End Sub

İle alan belirleyerek alandaki resimleri silebilirsiniz.
İyi çalışmalar.

Çok teşekkür ederim. sağolun.

 

[ultraslan38080]

Merhaba;

Sub rsm_sil()
Set Alan = Range("a1:z100")
For Each resimm In ActiveSheet.Pictures
If Not Intersect(resimm.TopLeftCell, Alan) Is Nothing Then
resimm.Delete
End If
Next
Set Alan = Nothing
End Sub

İle alan belirleyerek alandaki resimleri silebilirsiniz.
İyi çalışmalar.

Yalnız kod resimleri silmedi.

 

[Merhum İdris SERDAR]

.

Bunu deneyin.

Sub resimsil()

For Each resim In ActiveSheet.Shapes
If resim.Type = msoPicture Then
resim.Delete
End If
Next resim

End Sub

.

 

[ultraslan38080]

.

Bunu deneyin.

Sub resimsil()

For Each resim In ActiveSheet.Shapes
If resim.Type = msoPicture Then
resim.Delete
End If
Next resim

End Sub

.

Çok sağolun. bu çalıştı.