Rectangle nesnesinin macro ile silinmesi konusunda bilgi

[metinak]

Excel sayfasında yüzlerce Rectange objesi var. Tümünü bir seferde silmek istiyorum. Aşağıdaki macro ile sadece belirlenmiş bir tane nesne silebiliyorum. for next döngüsü ile denedim yapamadım. Yardımcı olursanız sevinirim. :hey:

ActiveSheet.Shapes("Rectangle 1").Select
Selection.Delete

 

[Mahmut Bayram]

Sn metinak, dikdörtgen de herhalükarda bir resimdir. Aşağıdaki kodun ihtiyacınızı karşılaması lazım. Bir dener misiniz!

[vb:1:c284f01646]Sub dortgen_sil()
For Each Rectangle In ActiveSheet.Shapes
Rectangle.Delete
Next
End Sub[/vb:1:c284f01646]

 

[Seyit Tiken]

Makrosuz Çözüm :
Çizim > Birden Çok Nesne Seç > Çıkan Diyalog Penceresinde, Tümünü Seç > Tamam > Delete

 

[metinak]

Teşekkürler çalıştı. Yenibir şeyler öğrenmek güzel. :hey: