批量word尺寸，收藏下

Sub setpicsize()

Dim n

On Error Resume Next

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).Height = 2500

 ActiveDocument.InlineShapes(n).Width = 480

 Next n

 For n = 1 To ActiveDocument.Shapes.Count

 ActiveDocument.Shapes(n).Height = 2500 '设置图片高度为 400px

 ActiveDocument.Shapes(n).Width = 480   '设置图片宽度 300px

 Next n

 End Sub

Sub limi()

Mywidth = 16.8  '10为图片宽度（厘米）

Myheigth = 23 '10为图片高度（厘米）

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth

iShape.Width = 28.345 * Mywidth

Next iShape

End Sub