批量改图片大小教程

批量改WORD文档图片大小教程第一步：打开WORD文档，点击【视图】-【宏】，如下图：

第二步：跳出对话框，如下图

第三步：在红色的框内输入“批量改图片尺寸”，再点击【创建】如下图：

第四步：跳出如下对话框，在红色框内，输入以下代码：

Sub FormatPics()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(6.83) '宽6.83CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

Next

第五步：输入代码后，后面汉字的颜色应该是绿色的，表示可以使用，字体是红色的话就表示代码有问题。其中括号内的数字【6.83】【5】可以根据自己的需求进行调整。

第六步：点击【保存】，关闭当前对话框，回到WORD界面

第七步：点击【视图】-【宏】

第八步：跳出对话框，如下，点击【运行】，就可以批量修改WORD 文档中的图片了。