当前位置:office办公软件学习-Excel教程-PPT教程-Word教程 > WORD达人 > WordVBA > 高级运用 > Word中如何批量处理图片的统一尺寸大小

Word中如何批量处理图片的统一尺寸大小

时间:2015-10-28 19:39来源:office办公达人 作者:office办公达人整理 阅读:
【导读】:时我们在整理和编辑文档时,文档里面有几百张图片,规格都不一样,堆在文档里面很难看。为美化文档,我们可以将图片规范化,都设置成某一格式。

        有时我们在整理和编辑文档时,文档里面有几百张图片,规格都不一样,堆在文档里面很难看。为美化文档,我们可以将图片规范化,都设置成某一格式,如425x320像素大小。手工修改每张图片很费时间也费鼠标,借助word的宏功能可以很好完成这一任务。

        打开word,按下Alt+F8,出现宏界面,为新建的宏取名为AdjustPicWidthAndHeight


点击编辑按钮,输入下面代码:
Sub AdjustPicWidthAndHeight()
' AdvertisePublishAs 宏
' 将广告发布导出为 PDF 和 XPS 
'Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse  '不锁定图片的纵横比
ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px 
ActiveDocument.InlineShapes(n).Width = 425   '设置图片宽度 425px 
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse  '不锁定图片的纵横比 
ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px 
ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px 
Next n
End Sub

    返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间)

分享到
更多
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
栏目列表
文章点击榜
推荐内容
最新文章
关于我们 | 联系我们 | 友情链接 | 版权声明 | 网站地图 | 帮助

网站为公益性网站,部分内容来源网络,如无意中侵犯了您的版权,请来信告知,我们会在第一时间处理
CopyRight© 2013-2018,www.officedoyen.com 版权所有   技术支持:泉州网站建设  闽ICP备14010062号