word使用宏定义来统一设置图片大小

Posted 2020-11-01 雪山上的蒲公英

1. 首先手动拖拽将图片调到需要的格式，点击图片在格式选项中查看图片的宽高

 2. 视图中点击宏新建

3. 编辑框中输入以下代码并保存，由于我只需要统一宽度，所以将统一高度的代码注释

Sub 图片格式统一()
\'
\' 图片格式统一 宏
\'
\'

\'Myheigth = 12
Mywidth = 14
On Error Resume Next \'忽略错误
For Each iShape In ActiveDocument.InlineShapes
\'iShape.Height = 28.345 * Myheigth \'设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth \'设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
\'Shape.Height = 28.345 * Myheigth \'设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth \'设置图片宽度
Next

End Sub

4. 回到宏界面，运行，done。