Sub '调节亮度和对比度()
' 调节亮度和对比度 宏
For i = 1 To ActiveDocument.InlineShapes.Count
'0~1对应-100%~100%范围
ActiveDocument.InlineShapes(i).PictureFormat.Brightness = 0.275 '将嵌入型图片的亮度设置为-45%
ActiveDocument.InlineShapes(i).PictureFormat.Contrast = 0.825 '将嵌入型图片的对比度设置为65%
Next i
For i = 1 To ActiveDocument.Shapes.Count
If ActiveDocument.Shapes(i).Type = msoPicture Then '假设浮动型对象是图片时才处理
ActiveDocument.Shapes(i).PictureFormat.Brightness = 0.275 '将浮动型图片的亮度设置为-40%
ActiveDocument.Shapes(i).PictureFormat.Contrast = 0.825 '将浮动型图片的对比度设置为65%
End If
Next i
MsgBox "处理完毕!"
End Sub
步骤:在word中新建一个宏,然后复制上述代码到里面,点击运行后提示“处理完成”,然后保存宏以后用