谁要猿课视频下载链接:Word宏:Word中的图片批量统一大小及同比例缩放(图)
来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 06:29:17
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
[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
使用方法和 [Word宏:Word中英文标点符号互换-VBA源码实现(图)] 中介绍的一样,把代码复制到Visual Biscal编辑器中,再回到Word界面,运行“宏”命令。
操作步骤如下:
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
[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
原创文章如转载,请注明:转载张辉老师工作室 [ http://www.qdnbp.com/zhagnhui/ ]
本文链接地址:http://www.qdnbp.com/zhanghui/Blogs/office/201002/20100206014910.Html
为了您的安全,请只打开来源可靠的网址打开网站 取消
来自: http://hi.baidu.com/shzkkqq/blog/item/62b7a0a7f0c6b384d04358fe.html