Option Explicit
Sub Brightness()
Dim objPic As InlineShape
Dim iShp As InlineShape
Dim ShpScale As Double
With Selection
For Each objPic In .InlineShapes
With objPic
If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
objPic.PictureFormat.Brightness = 0.25
objPic.PictureFormat.Contrast = 0.98
End If
End With
Next objPic
End With
End Sub