跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

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

Author: Xiaoyang Last Modified: 2025-08-22

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

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

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


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

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

  1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。
  2. 点击 插入 > 模块,并将以下代码粘贴到模块窗口中。
  3. 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
    
  4. 按下 F5 运行此代码。将弹出一个 浏览 窗口。选择包含要插入图片的文件夹,然后点击 确定.

    Browse window

  5. 将出现一个提示,询问您是否要调整图片大小。点击 .

    Confirmation dialog saying 'Do you want to resize all pictures?'

  6. 在弹出的文本框中输入高度和宽度(以点为单位),用逗号分隔,然后点击 确定.

    Dialog box to specify size

  7. 所有插入的图片现在都将调整为指定的尺寸。

    All the inserted images are resized


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

当您的Word文档包含多张图片时,逐一手动调整它们的大小可能会很繁琐。借助 Kutools for Word调整图片大小 功能,您可以快速将所有图片调整为与特定图片相同的大小。

Kutools for Word搭载 AI 🤖,提供超过 100 项实用功能,简化您的任务。
  1. 将一张图片调整到所需大小并选中它。然后点击 Kutools Plus > 调整大小 > 调整为选图大小.

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

Word文档中的所有图片将立即调整为与所选图片相同的大小。

All pictures are resized to match the size of the selected picture

Kutools for Word 是终极的 Word 插件,能够简化您的工作并提升文档处理技能。立即获取!

最佳Office办公效率工具

Kutools for Word - 用超过100项强大功能全面提升你的Word体验!

🤖 Kutools AI 功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……

📘 文档掌控分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

正文编辑跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……

🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……

创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……

🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……

实用增强跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 转换工具……

🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即体验这些功能?马上下载 Kutools for Word!🚀
 

✨ Kutools for Office – 一次安装,五大强力工具集成!

内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间

最佳Office办公效率工具

Kutools for Word - 100+ 项Word工具