Excel教程下载和软件下载中心,Microsoft技术社区联盟成员,全球领先的Excel门户,Office技术培训的最佳社区

Word实现多种要求批量插入图片

2014-09-22  作者:ExcelHome  阅读:

下载文档:http://t.cn/zRq0VBb ,启用并运行Word宏,批量插入图片后可以实现如下效果:
1、可以将图片的名称显示在图片下方;
2、图片的宽度大小可按要求任意设置(修改宏代码里的相关数值),实现批量等比例缩放。具体操作方法件如下动画演示:



宏代码如下
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count  'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Width = 360  '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count  'Shapes类型图片
ActiveDocument.Shapes(n).Width = 360  '设置图片宽度 300px
Next n
End Sub
转载请注明来源"ExcelHome"并保留原文链接。
固定链接:lesson/animation/Word/1384.html
分享到:
Copyright 1999 - 2017 Excel Home.All Rights Reserved.
本站特聘法律顾问:徐怀玉律师 李志群律师   沪ICP备11019229号

沪公网安备 31011702000001号

征信