Apply Picture formatting to all pictures in the word file

macropod · #1 07-14-2018, 09:54 PM

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

si14 · #2 07-16-2018, 04:30 AM

Thank you for your reply.
I have another two questions:
1- Is there any way to resize all the images in the word file?
For example, resize to 6" by 6".

2- Is there any way to crop all the images in the word file?
For example, crop to 6" by 6".

Thanks again.

si14 · #3 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word file with a lot of pictures. Picture size small, File size HUGE	Blackcloud_9	Drawing and Graphics	1	04-10-2018 06:04 AM
Make a macro apply only on selected pictures	Mattia	Word VBA	2	11-10-2017 12:52 AM
Macro to apply artistic effect to selected picture in Microsoft Word 2010.	staicumihai	Word VBA	2	11-24-2016 01:41 AM
VBA Word Table - Select More than 1 Column at a time - Apply Formatting	jc491	Word VBA	12	09-24-2015 06:03 AM
how do i apply any change to all pictures in one document	greenil	Word	0	06-18-2013 12:56 AM