word使用宏定义来批量设置图片大小
打开word中开发工具,文件→选项→word选项
新建Visual Basic文件
点击 插入→模块
复制下列任意代码,粘贴到右侧。(注意可以灵活设置Myheigth或者Mywidth)
点击小三角,运行即可。
如何获取理想的Myheigth或Mywidth,选中一张图片,调节成适合的高度或者宽度,把数值记下来,赋值给Myheigth或Mywidth即可。
下列代码任选其一,粘贴即可
前提条件:图片文字环绕模式都必须为“嵌入式图形”
固定宽度
' 锁定图片的纵横比,固定宽度,高度任意
Sub 批量设置图片大小()
Mywidth = 12 '厘米
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue '锁定图片的纵横比
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
End Sub
固定高度
' 锁定图片的纵横比,固定高度,宽度任意
Sub 批量设置图片大小()
Myheigth = 18 '厘米
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineS