通过word宏批量转换图片颜色为黑白25%(maybe) Recolor Picture to black and white 25% by word VBA

代码如下:

Sub changeImageToBalckAndWhite()
'
' changeImageToBalckAndWhite 宏
'
'
For Each InlineShape In ActiveDocument.InlineShapes
InlineShape.PictureFormat.ColorType = msoPictureGrayscale

InlineShape.PictureFormat.IncrementContrast 0.1
InlineShape.PictureFormat.IncrementBrightness 0.1
InlineShape.PictureFormat.IncrementContrast 0.2
InlineShape.PictureFormat.IncrementBrightness 0.1

Next InlineShape


End Sub