word批量使图片大小一致

Sub setpicsize()
Dim n
On Error Resume Next

For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height = 27.31 * 28.35
ActiveDocument.InlineShapes(n).Width = 19.33 * 28.35
Hext n
End Sub