word里如果批量修改图片大小

生活中，很多小伙伴不知道word里如果批量修改图片大小，今天小编针对这个问题做了这篇文章，详细内容我们来看一下。

最近，边肖遇到了一个问题:word文档中的所有图片都需要按比例缩小。一个一个换太麻烦了。于是我上网搜索，找到了解决办法。需要注意的是要注意厘米和像素的换算关系。一般1 cm =28px。这个换算关系其实可以用计算器算出来。计算公式是图片更改后的像素除以更改后图片的尺寸cm。固定长度和宽度这部分是关于将word中的所有图片都更改为固定和相同的长度和宽度！1.打开word，工具-宏-宏（或直接按Alt+F8）进入宏界面，如下所示。输入一个宏名，自己就能记住了！2.命名宏后，单击“创建”进入Visual Basic编辑器。输入以下代码并保存Sub setpicsize（）设置图片大小Dim n‘出错时继续下一步时的图片数量‘忽略错误forn = 1到激活的文档。嵌入式形状。“计数”嵌入式形状类型图片活动文档。内嵌形状。Height = 400将图片高度设置为400px activedocument。嵌入式形状（n）。。“Width = 300”将活动文档的图片宽度设置为300px nextnforn = 1。形状。计数形状类型图片活动文档。形状。Height = 400将活动文档的图片高度设置为400像素。形状。Width = 300将图片宽度设置为300px Nextn End Sub 3、返回word，工具-宏-宏（或直接按Alt+F8），再次进入宏界面，选择刚刚编辑的宏，然后单击运行。（如果图片很多，可能需要一些时间。）缩放这部分是关于缩放word中的所有图片！具体操作同上，但代码部分略有修改。代码如下:Sub setpicsize（）设置图片大小Dim n‘图片数量Dim pic width Dim pic height on error resume next‘忽略n = 1到活动文档的错误。嵌入式形状。Count嵌入式形状类型图片picheight = Ac。tiveDocument。内嵌形状。Height picwidth = ActiveDocument。内嵌形状。活动文档宽度。内嵌形状。Height = picheight * 1.1将高度设置为activedocument的1.1倍。嵌入式形状（n）。width = picwidth * 1.1将n = 1的nextn设置为active document . Shapes . count‘Shapes类型宽度为1.1倍的图片picheight = active document . Shapes（n）。。height picwidth = activedocument。形状。活动文档宽度。形状。height = picheight * 1.1将高度设置为1.1倍。活动文档。形状。宽度= picwidth * 1.1将宽度设置为1.1倍。

如果要将所有图片居中，可以在循环中添加以下语句:active document。嵌入式形状（n）。范围。段落格式。alignment = wdalignparagraphcenter。

左对齐:wdAlignParagraphLeft

注意:这里的形状（InlineShapes）不仅指图片，还包括其他形状，如自选图形、任意多边形、OLE对象、ActiveX控件、图片等。