Word批量调整图片大小(等比例缩放+居中)

1.锁定纵横比

Sub setpicsize()


On Error Resume Next '忽略错误
new_width_cm = 7.8  '设置新宽度
For Each iShape In ActiveDocument.InlineShapes '类型 图片
If iShape.Type = wdInlineShapePicture Then
iShape.LockAspectRatio = msoTrue '锁定纵横比
iShape.Width = CentimetersToPoints(new_width_cm) '宽
'Shap.Height = CentimetersToPoints(7) '高注释掉了

With iShape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
End With

End If

Next

End Sub

2.不锁定纵横比

Sub setpicsize()


On Error Resume Next '忽略错误
new_width_cm = 16  '设置新宽度
new_height_cm = 7  '设置新宽度
For Each iShape In ActiveDocument.InlineShapes '类型 图片
If iShape.Type = wdInlineShapePicture Then
iShape.LockAspectRatio = msoFalse '锁定纵横比
iShape.Width = CentimetersToPoints(new_width_cm) '宽16CM
Shap.Height = CentimetersToPoints(new_height_cm) '高7CM

With iShape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
End With

End If

Next

End Sub

3.相关链接

 使用word中的VBA 批量设置Word中所有图片大小_vba设置word图片格式-CSDN博客文章浏览阅读809次,点赞10次,收藏6次。使用VBA编辑器批量修改Word中所有图片大小_vba设置word图片格式https://blog.csdn.net/ThreeS_tones/article/details/134874222

用宏命令对word里的图片尺寸大小进行批量修改的方法 - 知乎我们在office软件里使用Word编辑图片时,文档里有特别多的图片这时需要进行尺寸修改,倘若一个文档里有几百张图片,一张一张进行调整工作量是巨大的,下面说下用宏命令对word里的图片尺寸进行批量快速处理调整的方…icon-default.png?t=N7T8https://zhuanlan.zhihu.com/p/105663730?ivk_sa=1024320u&utm_id=0

利用VBA宏批量解决Word中图片大小、居中设置icon-default.png?t=N7T8https://www.cnblogs.com/dydxw/p/14340377.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

打赏作者

龙骑士Chris

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

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

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

打赏作者

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

抵扣说明:

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

余额充值