您的位置:首页办公软件Word → word图片批量统一大小图文教程

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

时间:2012/6/20 8:38:07来源:www.a300.cn作者:xy我要评论(0)

小编最近需要写的文档越来越多了,有些时候,我们用 Word 来做一些图文混排的文档,必须使用一些比较正规的格式和样式,例如使文档中的每一幅图片大小一致。下面的方法就是告诉我们 Word 中批量处理统一图片大小的方法。

使用方法:把代码复制到 Visual Biscal 编辑器中,再回到 Word 界面,运行“宏”命令。

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 编辑器。

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

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

4. 保存,返回你要统一图片大小的 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

相关视频

    没有数据

相关阅读 Word图片也能随意旋转Word图片任我取lol源计划皮肤有哪几个 lol源计划系列皮肤图片一览怪物猎人世界冰原iceborne多少钱 怪物猎人世界冰原iceborne收费价MORDHAU怎么刺伤攻击 MORDHAU刺伤攻击技巧MORDHAU怎么踢人 MORDHAU控制台踢人代码MORDHAU分辨率怎么改 MORDHAU分辨率修改教程MORDHAU怎么切换视角 MORDHAU视角切换方法

文章评论
第 1 楼 IANA保留地址PC6.COM 客人 发表于: 2014/1/9 13:23:15
太好用了

支持( 0 ) 盖楼(回复)

查看所有0条评论>>

发表评论

热门文章 毕业论文格式设置图文Word 2010 的十大优点

最新文章 Word拼音怎么打?Word给毕业论文格式设置图文 Word无法读取文档,文档可能损坏怎么办word统一图片大小实例图文教程Word中批量修改图片大小和缩放比例方法毕业论文格式设置图文教程

人气排行 下划线怎么打?是哪个键?Word里输入乘号和除号的6种方法如何让word生成的目录显示4级标题并自动缩进word中表格允许跨页断行不能选择是灰色在Word2003文档中怎么分栏设置怎么制作红头文件Word中批量修改图片大小和缩放比例方法Word无法启动转换器mswrd632的解决办法