下载文档: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
声明:有的资源均来自网络转载,版权归原作者所有,如有侵犯到您的权益 请联系邮箱:123456@qq.com 我们将配合处理!
原文地址:Word文档中插入Flash动画发布于2022-06-08 10:25:21