WORD重置所有图原始大小后，重新统一设置图大小方法

 需要对word文档中的图片统一设置大小，首先重置初始大小，然后重新统一设置大小，觉得最简单的方法是制作宏命令，执行就可以了！

步骤（4步）：

1、打开WORD文档，alt+F8  跳出宏制作编辑窗口。

                 

2、点击创建窗口按钮 ，制作宏，取名为“图片统一大小”。

                 

3、宏代码。（功能：重置所有图片为初始大小，然后手动输入图高度，宽度，重新设置所有图大小。注意：宏代码为下面所有内容）

Sub 图片统一大小()

On Error Resume Next

Dim mywidth

Dim myheight

Application.ScreenUpdating = False '关闭屏幕更新

mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35

myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35

'------------------------------------------------------------------

'调整嵌入式图形

Dim pic As InlineShape

For Each pic In ActiveDocument.InlineShapes

If mywidth = "0" Then

pic.Height = myheight

pic.ScaleWidth = pic.ScaleHeight

ElseIf myheight = "0" Then

pic.Width = mywidth

pic.ScaleHeight = pic.ScaleWidth

Else

pic.Width = mywidth

pic.Height = myheight

End If

Next

'调整浮动式图形

Dim tu As Shape

For Each tu In ActiveDocument.Shapes

If mywidth = "0" Then

tu.Height = myheight

ElseIf myheight = "0" Then

tu.Width = mywidth

Else

tu.LockAspectRatio = msoFalse

tu.Width = mywidth

tu.Height = myheight

End If

Next

  Application.ScreenUpdating = True '恢复屏幕更新

End Sub

4、ctrl+s 保存，然后点击工具栏中的运行这个刚刚创建的宏就可以了！

优点：每次运用宏命令调试大小时，都是在“原始大小”基础上调整的。网上好多统一设置大小都是在现有图大小基础上进一步调整的，越调越乱。