Word文档中插入Flash动画

下载文档： ，启用并运行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