Rectangle nesnesinin macro ile silinmesi konusunda bilgi

Katılım
6 Ağustos 2005
Mesajlar
75
Excel Vers. ve Dili
2007 ENG
Altın Üyelik Bitiş Tarihi
25.01.2019
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

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Makrosuz Çözüm :
Çizim > Birden Çok Nesne Seç > Çıkan Diyalog Penceresinde, Tümünü Seç > Tamam > Delete
 
Katılım
6 Ağustos 2005
Mesajlar
75
Excel Vers. ve Dili
2007 ENG
Altın Üyelik Bitiş Tarihi
25.01.2019
Teşekkürler çalıştı. Yenibir şeyler öğrenmek güzel. :hey:
 
Üst