Word中用 vb脚本把所有图片设置为统一大小

Sub Macro()
Mywidth = 12.59
Myheigth = 6.87
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.35 * Myheigth
iShape.Width = 28.35 * Mywidth
Next iShape
End Sub

在Word的vb中新建工程，使用上面代码，修改宽和高之后执行即可