word宏求助（图片批量改大小）

哪位大佬精通word宏，帮忙改一下面的代码：
将所选（不是文档中所有的图片而是当前所选的图片）图片批量改大小（在不改变图片版式的情况下）

1. Sub统一大小()
   
2. On Error Resume Next
   
3. Dim mywidth
   
4. Dim myheight
   
5. Application.ScreenUpdating = False '关闭屏幕更新
   
6. mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
   
7. myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
   
8. '------------------------------------------------------------------
   
9. '调整嵌入式图形
   
10. <font color="#ff0000">Dim pic As InlineShape
    
11. For Each pic In Selection.InlineShapes</font>
    
12. If mywidth = "0" Then
    
13. pic.Height = myheight
    
14. pic.ScaleWidth = pic.ScaleHeight
    
15. ElseIf myheight = "0" Then
    
16. pic.Width = mywidth
    
17. pic.ScaleHeight = pic.ScaleWidth
    
18. Else
    
19. pic.LockAspectRatio = msoFalse
    
20. pic.Width = mywidth
    
21. pic.Height = myheight
    
22. End If
    
23. Next
    
24.   Application.ScreenUpdating = True '恢复屏幕更新
    
25. End Sub

复制代码