宏 word批量设置图片大小

最新推荐文章于 2025-04-19 10:36:25 发布

tang1jun

最新推荐文章于 2025-04-19 10:36:25 发布

阅读量798

点赞数

CC 4.0 BY-SA版权

分类专栏：解决方案

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

本文链接：https://blog.youkuaiyun.com/tang1jun/article/details/109645967

解决方案专栏收录该内容

16 篇文章

订阅专栏

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

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

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