效果如图所示:
但是,细心的小伙伴会发现,上方文档中图片的高度还是不一样,是怎么回事?这是由于勾选了“锁定纵横比”复选框(是Word为了调整图片尺寸时,为保持图片不变形而默认勾选的选项)。
在图片上右击鼠标,选择“大小和位置”命令,在打开的对话框中取消勾选““锁定纵横比”复选框。然后运行宏,此时,所有图片的高度和宽度就统一了。
又或是:打开VBA编辑器(也可直接按【Alt F11】快捷键),新建模块,然后将下面的代码复制粘贴到窗口中。
Sub FormatPics()
Dim Shap As InlineShape
For Each Shap In ActiveDocument.InlineShapes
If Shap.Type = wdInlineShapePicture Then
Shap.LockAspectRatio = msoFalse '不锁定纵横比
Shap.Width = CentimetersToPoints(10) '宽10CM
Shap.Height = CentimetersToPoints(7) '高7CM
End If
Next
End Sub
然后保存宏,关闭窗口。再运行宏:
▼ 附GIF: