2 Methods to Quickly Resize Pictures in Your Word Document

In this article, we will show you how to quickly resize multiple pictures in your Word document to meet certain requirements.

It’s not unusual to have many pictures inserted into a Word document nowadays. Yet, sometimes these pictures should be set in the same size. And normally, the picture inserted is in “In line with text” wrapping style, which means we can’t select them all at the same time. Thus, to adjust the picture size can be time-consuming even when there are only several of them.

Following are 2 quick ways you might find helpful.

Method 1: Use “F4”

  1. First and foremost, double click on a picture to enter editing mode.
  2. Second, click the down arrow button in “Size” group under “Format” tab to open the “layout” dialog box.Click Down Arrow Button
  3. In the dialog box open, change the height and width as you need first.
  4. Then clear the “Lock aspect ratio” and “Relative to original picture size” boxes in “Scale” part.
  5. Lastly, click “OK”.Set New Height and Width ->Clear Boxes ->Click "OK"
  6. Next, click on another picture and press “F4”. You shall find the second picture now is in the same size as the previous one. “F4” here can repeat the last action.

Method 2: Use VBA Codes

Generally speaking, method 1 can save you a lot time already. However, in case you find it dull and boring to click on picture and press “F4” key, you can take the help of VBA codes to finish the task once for all.

  1. To start with, click “Developer” tab.
  2. Then click “Visual Basic” in “Code” group or press “Alt+ F11” to open the VBA editor.Click "Developer" ->Click "Visual Basic"
  3. Next, click “Normal”.
  4. Click “Insert”.
  5. And choose “Module”.Click "Normal" ->Click "Insert" ->Choose "Module"
  6. Then double click on the new module to open editing area.
  7. Paste the bellowing codes there:
Sub SetupAllPictureSize()
  Dim objInlineShape As InlineShape
  Dim objShape As Shape
  For Each objInlineShape In ActiveDocument.InlineShapes
    objInlineShape.Height = 500
    objInlineShape.Width = 500
  Next objInlineShape

  For Each objShape In ActiveDocument.Shapes
    objShape.Height = 500
    objShape.Width = 500
  Next objShape
End Sub
  1. Finally, hit “Run” button.Paste Codes ->Click "Run"


  1. You can alter the values in codes “objInlineShape.Height = 500” and “objInlineShape.Width = 500” as you need to change the height and width of pictures in “In line with text” wrapping style.
  2. You can alter the values in codes “objShape.Height = 500” and “objShape.Width = 500” to change the height and width of pictures not in “In line with text” wrapping style.

Handle Document Problems

A Word document containing too many pictures can not only slow down the processing speed but also cause document corruptions. One way is to avoid inserting too many pictures in a Word file so you won’t encounter with such a problem. The other way is however, to get a docx problem fix tool in advance, so you won’t have to worry about losing important file.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xlsx data error repair tool and pdf repair software products. For more information visit www.datanumen.com

9 responses to “2 Methods to Quickly Resize Pictures in Your Word Document”

  1. I’m really inspired along with your writing talents as well as with the structure on your blog. Is that this a paid subject or did you customize it yourself? Either way stay up the nice quality writing, it’s uncommon to peer a great weblog like this one nowadays..

  2. Hello, all the time i used to check web site posts here early in the morning, since i enjoy to gain knowledge of more and more.

  3. My issue was when I pasted in larger items it went off the page. So I hobbled together this code.

    Sub WidthPictures2fit()
    Dim i As Long
    With ActiveDocument
    For i = 1 To .InlineShapes.Count
    With .InlineShapes(i)
    If .Width > 520 Then
    .Width = 519
    End If
    End With
    Next i
    End With
    End Sub

    If it’s more than 520 wide it reduces the width to 519. Which is about the width of a normal word document. You can adjust the 520 as you need.

  4. Thank you for the VBA code. If someone wants to use scale width or height, then the following parameters can be used in the code (80%):

    For Each iShp In .InlineShapes
    With iShp
    If .Type = wdInlineShapePicture Or wdInlineShapeLinkedPicture Then
    .ScaleWidth = 80
    .ScaleHeight = 80
    End If
    End With
    Next iShp

  5. Great trick with VBA… just mentions that dimensions are in “points”… use google to convert to inches or millimeters

  6. The F4 command doesn’t appear to work on a Mac (or Cmd Y). F4 seems to be a global command in that it repeats the last action you did regardless of the program you are in; e.g., if you pasted a search term in your browser a while back it will paste that text into Word (but not your immediately preceding resize command). Haven’t found a way around this.

Leave a Reply

Your email address will not be published. Required fields are marked *