欢迎来到电脑知识学习网,专业的电脑知识大全学习平台!

手机版

word图片批量统一大小图文教程

软件应用 发布时间:2018-12-03 22:03:40

1 2 3 4 5 6 7 8 9 10 11 12 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 编辑器。

word图片批量统一大小图文教程

2. 插入 normal 工程“模块”。

word图片批量统一大小图文教程

3. 在“模块”中粘贴上面的代码。

word图片批量统一大小图文教程

4. 保存,返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令"。

word图片批量统一大小图文教程

看一下结果,是不是你想要的统一图片大小。

word图片批量统一大小图文教程

我用的两张图一个大一个小,统一后 400*300 还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。

按比例缩放的方法和上面的是一样的,只是代码变化一下,过程就不熬述。VBA 代码如下:

1 2 3 4 5 6 7 8 9 10 11 12 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


责任编辑:电脑知识学习网

软件应用