如何在 Word 中插入圖片，並統一調整為相同尺寸？
一般情況下，您可一次在 Word 文件中插入多張圖片，並保留其原始尺寸。然而，為呈現一致且專業的外觀，有時需確保所有圖片尺寸統一。手動逐一調整不僅耗時，還難以精準對齊。本指南將示範如何高效插入多張圖片，並快速統一調整尺寸，讓版面整齊美觀、專業有型。
使用 Kutools for Word 將所有圖片調整為與特定圖片相同大小
使用 VBA 在 Word 中插入並統一調整多張圖片尺寸
下列 VBA 程式碼可協助您一次插入多張圖片，並立即將它們全部調整為您指定的尺寸。請依照以下步驟操作：
- 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！
- 點選插入＞ 模組，並將下列程式碼貼到模組視窗中。
- 按下 F5 執行此程式碼，隨即會彈出一個瀏覽視窗。請選取包含要插入圖片的資料夾，然後點選確定。
- 系統將提示您是否調整圖片大小，請點選是。
- 在出現的文字方塊中，輸入以點（pt）為單位的高度與寬度，並以逗號分隔後，點選確定。
- 所有插入的圖片現已調整為指定尺寸。
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
使用 Kutools for Word 將所有圖片調整為與特定圖片相同大小
當您的 Word 文件包含多張圖片時，逐一調整尺寸可能相當繁瑣。透過 Kutools for Word 中的調整圖片大小功能，即可快速將所有圖片統一調整為與某張特定圖片相同的尺寸，省時又高效！
- 先將圖片調整至所需大小並選取，接著點選 KUTOOLS PLUS > 調整大小 > 調整為選圖大小。
Word 文件中的所有圖片將立即調整為與所選圖片相同的尺寸。
最佳 Office 生產力工具
Kutools for Word——透過超過 100 項卓越功能，全面提升您的 Word 體驗！
🤖KUTOOLS AI 功能：AI 助手/即時助手/超級潤色（保留格式）/超級翻譯（保留格式）/AI 遮擋/AI 校正……
📘 文件掌控力：分割頁面/文檔合併/以多種格式匯出選取內容（PDF/TXT/DOC/HTML……）/批次轉換為 PDF……
✏ 內容編輯：批量查找與替換多個檔案/調整所有圖片大小/翻轉表格列與欄/表格轉文本……
🧹 輕鬆清理：一鍵清除多餘空格、分節符、文字框與超連結！想要更多清除工具？立即前往移除群組……
➕ 創意插入：插入千位分隔符/複選框/選項按鈕/二維碼/條碼/多張圖片/ 更多功能請至插入群組……
🔍 精準選取：精確定位特定頁面/表格/圖形/標題段落/ 透過更多選取功能提升導覽效率……
⭐ 星級增強功能：快速跳轉至任意位置/自動插入重複文字/在文件 Windows 之間切換/11 轉換工具……
🌍 支援 40+ 種語言：使用您熟悉的慣用語言暢享 Kutools！支援英文、西班牙文、德文、法文、中文等 40 多種語言，操作更順手、體驗更流暢！
Office Tab- 為 Office 帶來分頁式介面，讓您的工作更輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀體驗。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您減少數百次滑鼠點擊，生產力提升 50%！
✨ Kutools for Office – 一次安裝，五大強大工具！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套整合 5 項工具 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 保存時間，立即提升生產力