先把图片保存到文档中"再点哪里就会出现个匡匡"再点颜色图标就行"最后保存文档"
用宏：
Sub 图片颜色改为灰度()
Dim t
For Each t In ActiveDocument.InlineShapes
t.PictureFormat.ColorType = msoPictureGrayscale
Next t
For Each t In ActiveDocument.Shapes
t.PictureFormat.ColorType = msoPictureGrayscale
Next t
MsgBox "已经完成"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024