dikdörtgen şekilleri temizleme

[ahmetozbey]

sayfada çok sayıda kopyala yapıştır yapmış olduğum dikdörtgen şekiller vardı şimdi kullanmak istemiyorum ama gözle gözükmeyecek yerlerde ve çok sayıda bulunuyor bunların hepsinin nasıl temizleneceğine dair birisi varsa lütfen yardım etsin

 

[Metin Karaağaç]

dikdörtgen şekilden kastınız kenarlıklar mı?

 

[Metin Karaağaç]

Allah allah,soruyu sorup yattınız mı hemen?
Eğer kenarlık değil de formlardaki dikdörtgen ise;
ctrl+G yapıp özel deyin ve nesneleri işaretleyip tamam deyin.
sonra da delete..

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Makro1()
For Each Rectangle In ActiveSheet.Shapes
Rectangle.Delete
Next
End Sub

 

[ahmetozbey]

teşekkürler halloldu.