宏 word批量设置图片大小

批量调整图片尺寸

最新推荐文章于 2025-04-25 12:51:23 发布

原创最新推荐文章于 2025-04-25 12:51:23 发布 · 858 阅读

2 ·

CC 4.0 BY-SA版权

本文为博主原创文章，未经博主允许不得(商用)转载。

解决方案专栏收录该内容

16 篇文章

订阅专栏

本文介绍了一种使用VBA脚本批量调整Word文档中图片尺寸的方法。该脚本能够自动将文档内的所有内联形状和形状类型的图片高度设置为510像素，宽度设置为520像素。

Sub setpicsize() '设置图片大小
Dim n ' 图片个数
On Error Resume Next ' 忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片
ActiveDocument.InlineShapes(n).Height = 510 '设置图片高度为 510px
ActiveDocument.InlineShapes(n).Width = 520 '设置图片宽度 520px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 510 '设置图片高度为 510px
ActiveDocument.Shapes(n).Width = 520 '设置图片宽度 520px
Next n
End Sub