Resizing all images in document

ShSimpson · #1 05-09-2012, 01:05 PM

I have created a manual and in this I have a number of images and graphics. The person that I submitted this too wants these to be smaller. Is there a way to change all of the images in a document by a certain percentage. I would like to reduce them all by 25%.

macropod · #2 05-10-2012, 01:03 AM

Hi ShSimpson,

On the assumption the pictures aren't in-line with the text, you could use a macro like:

Code:

Sub Reformat()
Application.ScreenUpdating = False
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
  With oShp
    .ScaleHeight 0.75, False
    .ScaleWidth 0.75, False
  End With
Next oShp
Application.ScreenUpdating = True
MsgBox "Finished Reformatting."
End Sub

Note that this will resize every kind of non-inline shape in the document.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Document window resizing misbehavior	Clueless in Seattle	Word	4	01-10-2012 07:29 PM
TOC links to images in document?	Splint	Word	3	11-06-2011 05:50 AM
Need to make sure all images are 300+ dpi in word document	Ralph	Drawing and Graphics	3	08-20-2011 03:57 AM
hiding images in word document	gib65	Drawing and Graphics	3	08-17-2011 11:09 AM
editing of images, tables and caption in the whole document.	Jamal NUMAN	Word	4	07-08-2011 04:14 AM