Word批量调整图片的大小和位置

在 Word 中可以通过多种方法批量调整图片的大小和位置，以下是具体介绍：

直接选中批量设置法：

选中图片：若图片不是 “嵌入型”，可直接按住 “Ctrl” 键，然后依次点击每张图片，或者用鼠标拖动绘制选择框来选中所有要调整的图片。若图片是 “嵌入型”，需先选中图片，在 “图片格式” 选项卡中将 “环绕文字” 设置为 “四周型环绕” 等非嵌入型方式，再进行选中操作。 设置大小：选中图片后，Word 会自动激活 “图片工具” 选项卡。在 “格式” 选项卡下，找到 “大小” 组，输入新的宽度和高度值，可为所有选中的图片设置统一大小。若不想图片变形，可勾选 “锁定纵横比”。 调整位置：在 “图片工具 - 格式” 选项卡的 “排列” 组中，可选择 “对齐” 方式，如居中对齐、左对齐等，来批量调整图片位置，也可直接拖动其中一张图片，其他选中的图片会跟随移动。

F4 键法：

设置首张图片：将所有图片插入 Word 后，右键单击第一张图片，打开 “大小和位置”，取消 “锁定纵横比”（根据需要，若不想变形可不取消），输入新的高度和宽度，确定后第一张图片大小调整好。 批量应用：点击下一张图片，按 F4 键，第二张图片就会调整成和第一张图片一样的大小。重复 “点击 + F4” 操作，直到调整好所有图片。此方法适合图片数量不是特别多的情况，且仅 Word 中可用，WPS 文字不支持。

宏代码法：

输入代码：按 “Alt + F8” 键，打开 “宏” 对话框，创建一个新宏，例如命名为 “setpicsize”。然后将以下代码复制粘贴进去：

Sub setpicsize()
    Dim n '图片个数
    On Error Resume Next '忽略错误
    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
        ActiveDocument.InlineShapes(n).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
        If ActiveDocument.InlineShapes(n).Width >= ActiveDocument.InlineShapes(n).Height Then
            ActiveDocument.InlineShapes(n).Width = 28.345 * 14 '设置图片宽度500px，可按需修改
        Else
            ActiveDocument.InlineShapes(n).Width = 28.345 * 8 '设置图片宽度300px，可按需修改
        End If
    Next n
    For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
        ActiveDocument.Shapes(n).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
        If ActiveDocument.Shapes(n).Width >= ActiveDocument.Shapes(n).Height Then
            ActiveDocument.Shapes(n).Width = 28.345 * 14 '设置图片宽度500px，可按需修改
        Else
            ActiveDocument.Shapes(n).Width = 28.345 * 8 '设置图片宽度300px，可按需修改
        End If
    Next n
End Sub

运行代码：关闭代码窗口回到 Word 页面，点击 “宏” 对话框中的 “运行” 按钮，即可按设置的参数自动排版图片。