首页 > 上海日记 > Word批量处理图片大小的方法
2013
12-02

Word批量处理图片大小的方法

  北街最近需要写的文档越来越多了,根据公司文档规范性,我要使用正规的格式和样式做一些图文混排的 Word ,例如使文档中的每一幅图片大小一致。下面的方法就是告诉大家 Word 批量处理统一图片大小的方法。

  使用方法:把代码复制到 Visual Biscal 编辑器中,再回到 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 编辑器。

Word批量处理图片大小的方法 - 第1张  | ZAOPERATION

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

Word批量处理图片大小的方法 - 第2张  | ZAOPERATION

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

Word批量处理图片大小的方法 - 第3张  | ZAOPERATION

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

Word批量处理图片大小的方法 - 第4张  | ZAOPERATION

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

Word批量处理图片大小的方法 - 第5张  | ZAOPERATION

  我用的两张图一个大一个小,统一后 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批量处理图片大小的方法》有 13 条评论

  1. 这个必须顶啊 图多用这个很好

  2. 严重浪漫 说:

    向老友问好。。。。

  3. 恋字坊 说:

    从松松博客过来的,贵站做的真心不错,我和大学同学也刚做了一个网站,欢迎站长朋友过来看看,能给我提点建议的话就感激不尽了,我的网站是恋字坊http://www.lianzifang.com/

  4. 公子 说:

    学习了。。。。

  5. 上海纹绣 说:

    很不错的方法

  6. 怡红公子 说:

    啊擦咧,宏啊,瞬间又回到了VB6.0了啊有木有..==

  7. 点菜宝 说:

    值得一试啊

  8. 北街 说:

    @刘印博客 效果还不错,值得一用! 😉

  9. 刘印博客 说:

    没用过,效果是什么样子的?

留下一个回复

你的email不会被公开。