Compress Images in Office with VBA

I'm looking for a way to programmatically emulate PowerPoint and Word's behavior of compressing pictures to 150 or 96 dpi (ppi) (and removing crops, if there). I need to make a whole ton of presentations and documents smaller for distribution and can't open them up one by one to change DPI by hand for all of them. Is there 开发者_如何学编程any way to do this with VBA?

Not a lot of simple ways to do this, but these techniques can be used: http://www.eggheadcafe.com/microsoft/Office-COM-Add-Ins/32877260/compressing-inlineshapes-in-code.aspx