中图片大小统一调整宏设置方法

调整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中所有图片大小进行统一

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