cara memperkecil fail excel dengan menghapus Object yang ada di Sheet
Sub hapusObject()
Dim gambar As Shape
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
For Each gambar In sh.Shapes
gambar.Delete
Next gambar
Next sh
ActiveWorkbook.Save
End Sub
