如何批量压缩已插入到文档里的图片？

找耳朵的雷

word文档里有很多图片，都在图文框里，一个图文框里一张。每张图片500K左右。都不是原始尺寸，长宽被缩小到30％～50％左右。
1 如何批量压缩图片质量呢？
2 因为图片不需要100％显示(当前长宽是原大的30％～50％)，所以我想使照片在实际上缩小尺寸到目前的大小？就是使图片放大到100％显示时，和当前显示的长宽一样。

我知道应该插入前就处理好图片，但我想知道已经插入了有没有办法批量压缩图片质量和更改实际尺寸？

我用shift或ctrl不能选择多个图片，只能选择多个图文框。
如果图片不在图文框里，怎么解决问题？

pureshadow

定位选择
或者用绘图工具栏里的选择对象选取图片

liwen

Sub SetPic()
For i = 1 To ActiveWindow.Document.InlineShapes.Count
   ActiveWindow.Document.InlineShapes(i).Reset
   ActiveWindow.Document.InlineShapes(i).PictureFormat.ColorType = msoPictureGrayscale
   ActiveWindow.Document.InlineShapes(i).PictureFormat.IncrementContrast 0.03
     Next
End Sub

先选取图片，再录制宏记录相关的操作，按上面的格式适当更改即可处理所有的图片。

找耳朵的雷

2楼的，什么叫定位选择？
3楼的，如何先选取多个图片？

liwen

我也不知如何选取多个图片，但我的那个语句是按顺序处理所有的图片，你可以更改条件等让其只处理你的一部分图片（如果有规律的话），你可对每个图片设置相同或不同的格式，为何一定要先选取多个图片呢？