启用并运行Word宏，批量插入图片后可以实现如下效果：Q6j西部素材网
1、可以将图片的名称显示在图片下方；Q6j西部素材网
2、图片的宽度大小可按要求任意设置（修改宏代码里的相关数值），实现批量等比例缩放。具体操作方法件如下动画演示：Q6j西部素材网 Q6j西部素材网 Q6j西部素材网 Q6j西部素材网 宏代码如下：Q6j西部素材网
Sub setpicsize() '设置图片大小Q6j西部素材网
Dim n '图片个数Q6j西部素材网
On Error Resume Next '忽略错误Q6j西部素材网
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片Q6j西部素材网
ActiveDocument.InlineShapes(n).Width = 360 '设置图片宽度 300pxQ6j西部素材网
Next nQ6j西部素材网
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Q6j西部素材网
ActiveDocument.Shapes(n).Width = 360 '设置图片宽度 300pxQ6j西部素材网
Next nQ6j西部素材网
End Sub
