Word批量设置图片大小

写论文需要批量统一图片格式？让我们打开word“宏”。

1.查看Word图片属性是像素（px）还是厘米(cm)

如果是厘米，可以参考步骤二设置。如果是像素，跳转到步骤三开始coding。

 (当然是cm也不影响，像素更方便）

2.将Word图片显示方式修改为像素

3.在宏这里开始coding

3.1选择“视图”中的“宏”

3.2创建宏并命名为setFigSize

3.3编辑宏

Sub setFigSize()
'
' setFigSize 宏
'
'
    Weight = 1701  '设置的图片宽度
    Height = 900  '设置的图像高度
    On Error Resume Next '忽略错误
    For i = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
        ActiveDocument.InlineShapes(i).Height = Height '设置图片高度为 Height_px
        ActiveDocument.InlineShapes(i).Width = Weight '设置图片宽度 Weight_px
    Next i
    For i = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
        ActiveDocument.Shapes(i).Height = Height '设置图片高度为 Height_px
        ActiveDocument.Shapes(i).Width = Weight '设置图片宽度 Weight_px
 
    Next i

End Sub

 3.4 关闭编辑界面，运行宏

 okk!