word中图片批量统一大小图文的操作方法

发布网友发布时间：2024-08-19 08:04

共1个回答

热心网友时间：2024-08-21 14:05

从网上下载的图片一般都是大小不一致的。在这种情况下，可以通过一些看图软件来统一图片的大小。下面，告诉大家一个使用简单工具快速批量调整图片大小的方法。这个工具就是大家经常使用的office word。今天，小编就教大家在word中图片批量统一大小图文的操作方法。
　　word中图片批量统一大小图文的操作步骤如下：
　　Sub setpicsize() '设置图片大小
　　Dim n '图片个数
　　On Error Resume Next '忽略错误
　　For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
　　ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
　　ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
　　Next n
　　For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
　　ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
　　ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
　　Next n
　　End Sub
　　1. 打开要统一图片大小的 Word 文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
　　2. 插入 normal 工程“模块”。
　　3. 在“模块”中粘贴上面的代码。
　　4. 保存，返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令"。
　　看一下结果，是不是你想要的统一图片大小。
　　我用的两张图一个大一个小，统一后 400*300 还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。
　　按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。VBA 代码如下：
　　Sub setpicsize() '设置图片大小
　　Dim n '图片个数
　　On Error Resume Next '忽略错误
　　For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
　　ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
　　ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
　　Next n
　　For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
　　ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
　　ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
　　Next n
　　End Sub
word中图片批量统一大小图文的操作方法