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.

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

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