调整 WORD图片为统一尺寸方法:新建宏
1、打开WORD,Alt+F8调出宏编辑窗口
2、在宏名中填入名称,如名称为“调整图片大小”,然后点“创建“按钮,创建新宏,将以
下内容复制填入:
Sub 调整图片大小() '
' 调整图片大小 宏'
Dim j '计数图片个数
For j = 1 To ActiveDocument、InlineShapes、Count '文件中图片总个数,图
片类型为inlineshapes
ActiveDocument、InlineShapes(j)、Height = 328 '设置高度(28、4像素/厘米)
ActiveDocument、InlineShapes(j)、Width = 457 '设置宽度(28、4像素/厘米)
Next j
End Sub

复制后图像如下:

然后关闭。
下面运行宏即可将WORD中所有图片大小进行统一

运行之后就会发现所有图片大小都一致了。