Word图片怎么统一大小

在使用 Microsoft Word 编辑文档时，插入多张图片后常常会遇到尺寸不一的问题，影响整体排版美观。本文将介绍几种简单有效的方法，帮助您快速将 Word 中的图片统一调整为相同大小。

方法一：手动设置图片尺寸

• 选中一张图片，在顶部菜单栏点击【图片格式】。
• 在“大小”区域输入固定的【高度】和【宽度】（如宽 10 厘米，高 7 厘米）。
• 取消“锁定纵横比”，以确保所有图片严格按设定尺寸显示。
• 重复此操作应用于其他图片（适合少量图片）。

方法二：使用格式刷快速复制样式

• 先将一张图片调整到目标尺寸。
• 选中该图片，点击【开始】选项卡中的【格式刷】按钮。
• 用格式刷依次点击其他图片，即可快速应用相同尺寸。

方法三：使用宏批量统一图片大小（推荐用于大量图片）

按 Alt + F11 打开 VBA 编辑器，插入以下代码：

Sub ResizeAllPictures()
    Dim shp As Shape
    Dim ilshp As InlineShape
    Dim heightCm As Single
    Dim widthCm As Single
    
    heightCm = InputBox("请输入统一高度（厘米）：", , 7)
    widthCm = InputBox("请输入统一宽度（厘米）：", , 10)
    
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            shp.LockAspectRatio = msoFalse
            shp.Height = CentimetersToPoints(heightCm)
            shp.Width = CentimetersToPoints(widthCm)
        End If
    Next shp
    
    For Each ilshp In ActiveDocument.InlineShapes
        If ilshp.Type = wdInlineShapePicture Then
            ilshp.LockAspectRatio = msoFalse
            ilshp.Height = CentimetersToPoints(heightCm)
            ilshp.Width = CentimetersToPoints(widthCm)
        End If
    Next ilshp
End Sub
    

运行宏后，输入所需尺寸，即可一键统一所有图片大小。

小贴士

• 建议在调整前备份文档，防止误操作。
• 若需保持图片比例，可保留“锁定纵横比”，但统一尺寸可能无法完全实现。
• 对于图文混排文档，统一图片尺寸能显著提升专业感和阅读体验。