office word中利用宏编程批量调节图片的亮度和对比度

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中新建一个宏，然后复制上述代码到里面，点击运行后提示“处理完成”，然后保存宏以后用