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

时间:2024-02-19 11:24:56

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

其他方法

待更新