kendiliğinden oluşan text boxları engelleme

[esenbal]

merhaba.

dosyalarımda kendiliğinden oluşan ve dosyayı ağırlaştıran text box'lar var. sanırım kopyala yapıştır yaparak bunlar artıyor.
bunu nasıl engelliyebilirim.

tşk.

 

[Mahir64]

Merhaba

Dosyanız nasıl bir şey?

 

[esenbal]

basit excell dosyası.içinde tabloların oluştuğu günlük yapılan işlerin kaydedildiği bir dosya.
bazen hazır olan dosyayı taşı ve kopyala yaparak tekrar takrar başka isimlerle kullanıyorum.

 

[esenbal]

merhaba

daha açıklayıcı olması için örnek dosya gönderiyorum.inceleyen olursa sevinirim.

giriş - bul ve seç - 'den bakarsanız gizlenmiş olan text boxlar belirecek.

 

[Mahir64]

daha açıklayıcı olması için örnek dosya gönderiyorum.inceleyen olursa sevinirim.

giriş - bul ve seç - 'den bakarsanız gizlenmiş olan text boxlar belirecek.

Dosya Eklememişsiniz.

 

[halit3]

daha açıklayıcı olması için örnek dosya gönderiyorum.inceleyen olursa sevinirim.

giriş - bul ve seç - 'den bakarsanız gizlenmiş olan text boxlar belirecek.

dosyayı bende görmiyorum

 

[halit3]

Sayfada Textbox nesnelerini silmek için kod

Sub Nesne_sil()
silinecek_nesne = "TextBox"
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object) = "OLEObject" Then
If TypeName(ActiveSheet.Shapes(Picture.Name).OLEFormat.Object.Object) = silinecek_nesne Then
Picture.Delete
End If
End If
Next Picture
End Sub

Bütün nesneleri silmek için kod

Sub Bütün_Nesneleri_Sil()
ActiveSheet.DrawingObjects.Delete
End Sub

 

[esenbal]

günaydın

haklısınız dosyayı ekliyemedim.
boş bir dosya text box'lar yüzünden 4,34 mb yaptı.