如何在 Word 中插入並將圖片調整為相同大小？

Author: Xiaoyang Last Modified: 2025-05-12

通常，您可以在 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