Otomatik şekil sıkıntısı

[tongel_1559]

firmadaki Muhasebe kullanıcı kullandıgı excell 2003 dosyalarının boyutları şişme yapıyor aşırı derecede.
Normalde 25-30 kb olması gereken dosyalar 10-15 Mb çıkıyor.
Bir sayfada oluyor bu şişmeler.
Farkettimki onlarca otomatik şekil adında şekillervar sayfada rasgele sayfada yerlere tıkladıkca gözüküyor hepsini bulup silersem sayfa normal boyuta dönüyor.

Soru bu şekilleri kullanıcı nasıl olusturuyor (farkında değil nasıl yaptığından)

Bu seilleri otomatik toptan silebilmek mümkünmü.

Saygılarımla Erdoğan...
erdoganbat@hotmail.com mailine cevap yazarsanız müteşkir olurum

 

[hamitcan]

Böyle deneyin.

Sub SekilSil()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

 

[tongel_1559]

ilginiz için cok tesekkur ederim Hamitcan bey
Yüksek musadenle iki sorum olacak
1-Excel bu kodları nasıl yazacam daha once kullanmadım
2-Kullanıcı bu sekilleri nasıl beceriyor konusunda fikriniz varmı
gecici vergi ve kdv dosyalrında olusuyor.
Saygılarımla

 

[hamitcan]

Cevap 1: Alt+F11 tuşlarına basın, Insert menüsünden bir Module açın, içine bu kodu yerleştirin, F5 tuşuna basın.
Cevap 2: Araç Çubuğu üzerinde bulunan bir düğmeye yanlışlıkla basıyor olabilirsiniz.