如何在Word中插入并调整图片为相同大小？

Author: Xiaoyang Last Modified: 2025-05-07

通常，您可以在Word文档中一次性插入多张图片，并保留它们的原始大小。然而，有时为了确保文档外观一致且专业，您可能需要让所有图片保持相同的大小。手动调整每张图片的大小会非常耗时。本指南将向您展示如何高效地在Word文档中插入多张图片并将它们统一调整为相同大小，以确保专业的布局效果。

使用VBA在Word中插入并调整多张图片为相同大小

使用Kutools for Word将所有图片调整为与特定图片相同大小

使用VBA在Word中插入并调整多张图片为相同大小

以下VBA代码可以帮助您一次性插入多张图片并将它们调整为您指定的尺寸。请按照以下步骤操作：

按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
点击插入 > 模块，并将以下代码粘贴到模块窗口中。

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