批量调整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 运行即可