Microsoft Office Forums - View Single Post - [Solved] Apply Picture formatting to all pictures in the word file

si14 · 07-28-2018, 02:26 AM

Thanks. I managed to sort the images by the dpi and do the crop accordingly. So, that issue is solved.

In the following code which you provided, the brightness and contrast are modified. Could you please advise how to change the color to B&W (I assume this is equal to Saturation = 0%)?

Thanks again.

Quote:

Originally Posted by macropod

For that you might use a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument
  For i = 1 To .Shapes.Count
    With .Shapes(i).PictureFormat
      .Brightness = .Brightness + 0.4
      .Contrast = .Contrast + 0.4
    End With
  Next
  For i = 1 To .InlineShapes.Count
    With .InlineShapes(i).PictureFormat
      .Brightness = .Brightness + 0.4
      .Contrast = .Contrast + 0.4
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm
For Mac macro installation & usage instructions, see: https://wordmvp.com/Mac/InstallMacro.html