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。