Skip to main content

Kutools for Office — One Suite. Five Tools. Get More Done.

How to insert and resize images to the same size in Word?

Author Xiaoyang Last modified

Normally, you can insert multiple images at once in a Word document with their original sizes. However, there are times when you need to ensure all images are the same size for a consistent and professional look. Manually resizing each image can be time-consuming. This guide will show you how to efficiently insert multiple pictures into a Word document and resize them uniformly, ensuring a professional and cohesive layout.

Insert and resize multiple pictures to the same size in Word using VBA

Resize all pictures to match a specific image using Kutools for Word

Insert and resize multiple pictures to the same size in Word using VBA

The following VBA code can help you insert multiple pictures and resize them to your specified dimensions all at once. Please follow these steps:

  1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
  2. Click Insert > Module, and paste the following code in the Module window.
    3. Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub
  3. Press F5 to run this code. A Browse window will appear. Select the folder containing the images you want to insert and click OK.

    Browse window

  4. A prompt will appear asking if you want to resize the pictures. Click Yes.

    Confirmation dialog saying 'Do you want to resize all pictures?'

  5. Enter the height and width in points (pt), separated by a comma, into the text box that appears, and then click OK.

    Dialog box to specify size

  6. All inserted images will now be resized to the specified dimensions.

    All the inserted images are resized

Resize all pictures to match a specific image using Kutools for Word

When your Word document contains multiple pictures, resizing them one by one can be tedious. With Kutools for Word, the Resize Images utility lets you quickly resize all images to match the size of a specific one.

Kutools for Word, equipped with AI 🤖, offers over 100 handy features to simplify your tasks.
  1. Adjust one picture to the desired size and select it. Then click Kutools Plus > Resize > Resize All Images Based on Selection.

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

All images in the Word document will immediately be resized to match the size of the selected picture.

All pictures are resized to match the size of the selected picture

Kutools for Word is the ultimate Word add-in that streamlines your work and boosts your document processing skills. Get It Now!

Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (Preserve Format) / Super Translate (Preserve Format) / AI Redaction / AI Proofread...

📘 Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF...

✏ Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text...

🧹 Effortless Clean: Sweap away Extra Spaces / Section Breaks / Text Boxes / Hyperlinks / For more removing tools, head to the Remove group...

➕ Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Multiple Pictures / Discover more in the Insert group...

🔍 Precision Selections: Pinpoint Specific Pages / Tables / Shapes / Heading Paragraphs / Enhance navigation with more Select features...

⭐ Star Enhancements: Navigate to Any Location / Auto-Insert Repetitive Text / Toggle Between Document Windows / 11 Conversion Tools...

🌍 Supports 40+ Languages: Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Want to try these features? Download Kutools for Word now! 🚀
 

✨ Kutools for Office – One Installation, Five Powerful Tools!

Includes Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Get all 5 tools in one suite | 🔗 Seamless integration with Microsoft Office | ⚡ Save time and boost productivity instantly

Best Office Productivity Tools

Kutools for Word - 100+ Tools for Word

Free Download Buy Now Learn More about Kutools