利用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

其他方法

待更新

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

江畔晚风扶柳

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值