Word2003中批量调整图片大小的方法
1、新建一个word文档，打开。
2、工具→宏→宏（或直接按Alt+F8）打开宏编辑器，如图：
江苏省公务员报名网
深圳市考试院网
3、在宏名下面的输入框中输入宏名setpicsize，如图：
4、点击创建按键，在弹出的脚本编辑器中输入以下代码（可复制粘贴），如图：
附代码：
Sub setpicsize()
'批量设置图片大小贵州省招生院>2022年中级会计职称考试时间
Dim j '自定义变量j，用以计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为InlineShapes ActiveDocument.InlineShapes(j).Height = 102.024 '设置高度
托福考试ActiveDocument.InlineShapes(j).Width = 82.4694 '设置宽度
Next j
End Sub
社区结构化面试经典100题
5、点击保存。
6、回到word文档，插入你要调整大小的所有图片。
7、工具→宏→宏（或直接按Alt+F8）打开宏编辑器，如图：
8、选中宏名setpicsize，点击运行，就可以将word文档中所有的图片都调整为代码中所设
定的宽度和高度了。
注意：1、如要将照片调整为其它大小，只用改写代码中的高度和宽度的数据。
2、厘米与像素的坦率为：1厘米=28.34像素