Word中图片批量统一大小及同比例缩放的宏命令语言参数.doc
文本预览下载声明
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??
?
使用方法,把代码复制到Visual Biscal编辑器中,再回到Word界面,运行“宏”命令。
操作步骤如下:
1.打开要统一图片大小的Word文档,点击“工具”-“宏”-“Visual Biscal编辑器。
HYPERLINK /zhanghui/Plugins/downattach/downattach.asp?ID=247user=0 \o 2010-2-6 1:31:36 \t _blank
HYPERLINK /zhanghui/UploadFiles/201003ocets.jpg \t _blank
?
2)插入normal工程“模块”。?
HYPERLINK /zhanghui/Plugins/downattach/downattach.asp?ID=248user=0 \o 2010-2-6 1:34:58 \t _blank
HYPERLINK /zhanghui/UploadFiles/2010039lnxu.jpg \t _blank
?
3)在“模块”中粘贴上面的代码。
HYPERLINK /zhanghui/Plugins/downattach/downattach.asp?ID=249user=0 \o 2010-2-6 1:36:39 \t _blank
HYPERLINK /zhanghui/UploadFiles/2010037bob5.jpg \t _blank
?
4)保存,返回你要统一图片大小的Word文档。运行“工具”-“宏”-宏命令。
HYPERLINK /zhanghui/Plugins/downattach/downattach.asp?ID=250user=0 \o 2010-2-6 1:42:27 \t _blank
HYPERLINK /zhanghui/UploadFiles/201003/201002061swz73.jpg \t _blank
?
看一下结果,是不是你想要的统一图片大小。
HYPERLINK /zhanghui/Plugins/downattach/downattach.asp?ID=251user=0 \o 2010-2-6 1:44:34 \t _blank
HYPERLINK /zhanghui/UploadFiles/201003/201002066w5kes.jpg \t _blank
?
我用的两张图一个大一个小,统一后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??F
显示全部