word2007中插入多张图片，如何批量设置图片大小或者批量设置图片环绕方式

之前也遇到这个问题，只找到下面这个方法是有效的。开发工具--vba窗口，把代码复制进去，运行就可以。
Sub 宏2()
'
' 宏2 宏
'
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
.Height =MillimetersToPoints(120) '以毫米为单位设置高度，120毫米高
.Width =MillimetersToPoints(85.7) '以毫米为单位设置宽度，85.7毫米宽
End With
Next
End Sub
-----图片尺寸以毫米为单位；