Macro to delete all objects except charts

or ?

Sub tst()
  For Each sh In Sheets
    For Each ch In sh.Shapes
      If ch.Type <>14 Then ch.Delete
    Next
  Next
End Sub