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中新建一個宏，然後複製上述代碼到裏面，點擊運行後提示“處理完成”，然後保存宏以後用