宝塔服务器面板，一键全能部署及管理，送你10850元礼包，点我领取

 针对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