如何批量调整word中插入的图片大小？

方法（推荐）：用宏代码

第一步：【ATL + 8】调出宏

第二步：输入【宏名】-【创建】

第三步：复制所想要的代码块

代码1，功能：按照固定大小缩放，不锁定纵横比

Sub 批量设置图片格式()
' 批量设置图片格式 宏

'定义变量
Dim picwidth
Dim picheight

On Error Resume Next '忽略错误

'按照固定大小缩放
picheight = 10  '单位厘米，可修改
picwidth = 2.5  '单位厘米，可修改


''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes

'msoFalse是不锁定纵横比
'Shape.LockAspectRatio = msoFalse

'按照固定大小缩放
'Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
'Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next


''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'msoFalse是不锁定纵横比
Shape.LockAspectRatio = msoFalse

'按照固定大小缩放
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next

End Sub

代码2，功能：按照高（宽）设置尺寸，锁定纵横比

Sub 批量设置图片格式()
'
' 批量设置图片格式 宏
'
'

'定义变量
Dim picwidth
Dim picheight

On Error Resume Next '忽略错误

'按照固定大小缩放，保持比例
picheight = 10  '单位厘米，可修改
picwidth = 2.5  '单位厘米，可修改


''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next


''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'按照固定大小缩放, 两行删一行即可
Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）
Shape.Width = picwidth * 28.35 '设置图片宽度8cm

Next

End Sub

代码3，功能：按照原尺寸进行比例缩放，锁定纵横比

Sub 批量设置图片格式()
'
' 批量设置图片格式 宏
'
'

'定义变量
Dim ratio

On Error Resume Next '忽略错误

'按照比例缩放
ratio = 2 '缩放比例，可修改


''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes

'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。
Shape.LockAspectRatio = msoTrue

'按照比例缩放，下面两行，二选一，只留一行
Shape.Height = shape.Height * ratio  '按高
Shape.Width = shape.Width * ratio  '按宽

Next


''类型2：非嵌入式图形，Shapes类型图片
For Each Shape In ActiveDocument.Shapes

'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。
Shape.LockAspectRatio = msoTrue

'按照比例缩放，下面两行，二选一，只留一行
Shape.Height = shape.Height * ratio
Shape.Width = shape.Width * ratio

Next

End Sub

代码4，功能：嵌入式图片改为非嵌入式

然后接情况2的第四步。

Sub 批量设置图片格式()
'
' 批量设置图片格式 宏
'
'
On Error Resume Next '忽略错误

''类型1：嵌入式图形 InlineShapes类型图片
For Each Shape In ActiveDocument.InlineShapes

'可选，设置图片居中
'Shape.Range.Select
'Selection.ClearFormatting '图片行距=1，如果Word中图片设置了行距不是1，比如固定值30磅，则无论图片设置什么格式，嵌入式会造成只显示一部分图片。
'Selection.Range.Paragraphs.Alignment = wdAlignParagraphCenter '图片居中, wdAlignParagraphLeft是左对齐

'嵌入式图片改为非嵌入式
Set Shape = Shape.ConvertToShape
Shape.WrapFormat.Type = 0 '图片版式：0=四周型，1=紧密型，3=衬于文字下方，4=浮于文字上方,Default 0
Shape.WrapFormat.AllowOverlap = False '不允许重叠

Next

End Sub

第四步：【Ctrl + s】保存 - 【F5】执行

结束