下载文档: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"并保留原文链接。固定链接:https://www.excelhome.net/lesson/animation/Word/1384.html |