Merhaba,

Kullanıcılarımdan Excel dosyalarında bazen dosya boyutunun büyüdüğüyle ilgili şikayetler alıyordum. Dosya bozulduğu gibi yorumlarda bulunmuştum ancak daha sonra farkettim ki Excel'deki kitaplarda (Sheet) çizim (drawing) objesiyle belli belirsiz kutucuklar, metin kutuları çizildiğinden dolayı dosyanın boyutu artmaktadır. Bu problemi aşağıdaki programcıkla çözebilirsiniz. Eğer programcılık deneyiminiz yok ise bir Excel eklentisi (add-in) olan ASAP Utilities ile de çözümleyebilirsiniz.

Sub Sekilsilici()
Dim ws As Worksheet
Dim sh As Shape
For Each ws In Worksheets
For Each sh In ws.Shapes
sh.Delete
Next
Next
End Sub