一、原文档
二、运行代码后
三、代码
Sub 所有图片改为黑白图片()
Dim sh As InlineShape
Dim sha As Shape
For Each sha In ActiveDocument.Shapes
sha.PictureFormat.ColorType = msoPictureGrayscale
Next sha
For Each sh In ActiveDocument.InlineShapes
sh.PictureFormat.ColorType = msoPictureGrayscale
Next sh
End Sub