批量调整word中图片的大小

1.打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，命名一个宏名 注意：宏名不能设置为和特有关键字一样：如：set 等

2.输入一下代码

Sub tupian()
'
' tupian 宏
'
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 215.6 '设置图片高度为 px  一般1厘米约为28像素
ActiveDocument.InlineShapes(n).Width = 297.92 '设置图片宽度  px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 215.6 '设置图片高度为 
ActiveDocument.Shapes(n).Width = 297.92 '设置图片宽度 
Next n '


End Sub

3.返回word里Alt+F8 运行即可