利用VBA宏批量解决Word中图片大小、居中设置

 针对office的word文档，先添加宏文件，再运行就可以。

Sub 图片格式统一()
Myheigth = 8   \'设置高度
Mywidth = 10   \'设置宽度
On Error Resume Next
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoFlase   \'取消锁定纵横比
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth

With iShape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter \'居中
End With

Next

For Each Shape In ActiveDocument.Shapes
Shape.LockAspectRatio = msoFlase
Shape.Height = 28.345 * Myheigth
Shape.Width = 28.345 * Mywidth

With Shape
.Range.ParagraphFormat.Reset
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter \'居中
End With

Next

End Sub