How to compress picture in word using vba