How to insert multiple pictures with same size in Word document?

Normally, you can insert multiple images at once in a Word document with their original size. Sometimes, you need to arrange these images to the same size when inserting. This article, I will talk about how to insert multiple pictures with the same size in a Word document.

Insert multiple pictures with same size in Word document with VBA code

Resize all pictures to the same size based on a specific image with Kutools for Word

Insert multiple pictures with same size in Word document with VBA code

The following vba code can help you to insert multiple pictures and resize them to your specified size at once, please do as this:

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.

VBA code: insert multiple pictures with same size:

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. And then, press F5 key to run this code, a Browse window is displayed, please select the folder that contains the images you want to insert, see screenshot:

4. Then click OK button, and a promptf box is popped out to remind you if you want to resize the pictures, see screenshot:

5. Click Yes, and type the size numbers of the height and width which are separated by comma into the text box, see screenshot:

6. And then click OK, all the inserted images have been rearranged as the same size, see screenshot:

Note: the unit size is pond in VBA code.

Resize all pictures to the same size based on a specific image with Kutools for Word

If multiple pictures exist in your Word document, with Kutools for Word’s Resize Images utility, you can quickly resize all images as same as the specific one.

After installing Kutools for Word, please do as this:

1. Adjust one picture to the size you want, and then select it, then click Kutools Plus > Resize > Resize Images with Selection, see screenshot:

2. And all images in this word document have been resized as same as the selected one immediately, see screenshot:

Click to download Kutools for Word and free trial now!

---

Recommended Word Productivity Tools

 

Kutools For Word - More Than 100 Advanced Features For Word, Save Your 50% Time

• Complicated and repeated operations can be done one-time processing in seconds.
• Insert multiple images across folders into Word document at once.
• Merge and combine multiple Word files across folders into one with your desired order.
• Split the current document into separate documents according to heading, section break or other criteria.
• Convert files between Doc and Docx, Docx and PDF, collection of tools for common conversions and selection, and so on...

Read More Download Now Purchase