Memper Kecil Ukuran Fail dengan VBA Excel

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