word文档如何批量修改图片大小

最新推荐文章于 2024-08-16 22:26:34 发布

Lisazz25

最新推荐文章于 2024-08-16 22:26:34 发布

阅读量3.9k

点赞数 1

分类专栏： VBA

VBA 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个使用VBA脚本批量调整Word文档中图片尺寸的方法。该脚本将遍历文档中的所有内联形状，并将类型为图片的内联形状宽度和高度设置为5厘米，同时取消锁定纵横比。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

參考：http://www.360doc.com/content/10/0921/22/2619988_55466952.shtml

Sub FormatPics()

Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

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