Word批量修改图片高度

​

这里要用到vba，如果有几十、几百张图片，这是最快的方式

vba: Visual Basic for Application, 本质就是vb对程序进行控制

快捷键 按 alt+f11 或是 option+f11 或是通过菜单 工具（Tools） → 宏（Macro）→ Visual Basic Editor 进入

在左侧找到文档，如 Project(Doc)，右键插入模块

把下面代码粘进去，例如统一改成 5 cm：

Basic
1Sub SetAllPicturesHeight()
2
3    Dim shp As InlineShape
4    Dim pic As Shape
5
6    ' 行内图片
7    For Each shp In ActiveDocument.InlineShapes
8        shp.LockAspectRatio = True
9        shp.Height = CentimetersToPoints(5)
10    Next
11
12    ' 浮动图片
13    For Each pic In ActiveDocument.Shapes
14        If pic.Type = msoPicture Then
15            pic.LockAspectRatio = msoTrue
16            pic.Height = CentimetersToPoints(5)
17        End If
18    Next
19
20End Sub

最后点击run或者按F5执行即可