如何在 Word 中将插入的图片尺寸统一调整为相同大小？
通常，您可以一次性将多张图片插入到 Word 文档中，并保持其原始尺寸。但为了让文档排版更加整齐和专业，您可能需要确保所有图片的尺寸一致。逐一手动调整图片大小不仅繁琐，还非常耗时。本教程将为您演示如何高效地在 Word 文档中批量插入图片并统一调整尺寸，助您轻松打造专业、协调的版面效果。
使用 VBA 在 Word 中插入并统一调整多张图片为相同大小
使用 Kutools for Word 将所有图片调整为与指定图片相同大小
使用 VBA 在 Word 中插入并统一调整多张图片为相同大小
以下 VBA 代码可帮助您一次性插入多张图片，并统一调整为指定尺寸。请按照以下步骤操作：
- 按住 ALT + F11 键即可打开 Microsoft Visual Basic for Applications 窗口。
- 在模块窗口中，单击插入> 模块，然后粘贴以下代码。
- 按下 F5 运行此代码后，将弹出浏览窗口。请选择包含需插入图片的文件夹，然后点击确定。
- 系统将弹出提示，询问您是否需要调整图片大小。请点击是。
- 在弹出的文本框中输入以逗号分隔的高度和宽度（单位为磅），然后点击确定。
- 所有插入的图片现在都将自动调整为指定尺寸。
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 > 调整大小 > 调整为选图大小。
文档中的所有图片将会立即统一调整为与所选图片相同的尺寸。
最佳办公效率工具
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 无缝集成 | ⚡ 保存时间，立即提升效率