批量改图片大小教程.docVIP

批量改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文档中的图片了。