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

以上就是word插入图片Word实现多种要求批量插入图片全部内容了，希望大家看完后能有所启发，对自己的工作生活有所帮助，想要了解更多跟word插入图片Word实现多种要求批量插入图片相关的内容，请关注我们最需网！