镀锌带钢价格:分享：Word宏：Word中的图片批量统一大小及同比例缩放（图）

应用
注册 用户名:   密码:
HOHO照片PK分享投票测试礼物
开心部落汽车工厂七彩鱼
更多
网页游戏
分享

热门分享
最新分享
好友的分享
我的分享
分享有礼啦！iPad大奖周周送！速速关注吧>>
如何分享?问题反馈

727738236的分享
分享
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
来自:
SHZkkqq
第一分享:
727738236
时间: 2011-01-03 15:32
评论: 2条
投票: 0次
本贴分享: 2
累计分享: 4
共有0人发表观点
...目前还没有互动观点，输入您的互动观点
评论(2)


2011年01月03日 15:32727738236
好帖子

2011年03月22日 21:35fljsdu
谢谢分享！
帮助中心 |空间客服 |投诉中心 |空间协议 |联系我们
2006-2011 © Baidu