利用vb进行word批量修改图片大小的实践

word批量修改图片大小

运行环境

• win10
• office2013

用vb方法

• 打开word-->视图-->宏-->查看宏-->创建名称为“tupian”的宏-->在编辑界面复制如下代码
• 根据自己的需要进行修改相关地方即可

Sub setpicsize()
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.InlineShapes.Count

\'使用注意事项
\'如果没有声明纵横比，将默认开启纵横比；根据代码从上往下运行顺序，只有最后一个生效，后面的会覆盖前面的
\'如果声明了LockAspectRatio，无论属性值为什么都是将纵横比关掉；此时高度和宽度将同时生效



ActiveDocument.InlineShapes(n).Width = 3 * 28.35 \'设置图片高度为5 cm  1cm = 28.35px
ActiveDocument.InlineShapes(n).Height = 1 * 28.35 \'设置图片高度为5 cm  1cm = 28.35px  ActiveDocument.InlineShapes(n).LockAspectRatio = msoTriStateToggle

Next n

End Sub

其他方法

待更新