最近，边肖遇到了一个问题：word文档中的所有图片都需要缩小。一个一个改太麻烦了。于是我上网搜索，找到了解决办法。需要注意的是要注意厘米和像素的转换关系。一般1 cm=28px。这种转换关系实际上可以用计算器来计算。计算公式是图片变化后的像素除以厘米变化后的图片大小。固定长度和宽度。这部分是关于把word中的所有图片都改成固定的，长度和宽度都一样！1.打开word，工具-宏-宏(或者直接按Alt F8)进入宏界面，如下图，输入一个宏名，就可以自己记住宏名了！

2.当宏名称准备就绪后，单击“创建”进入Visual Basic编辑器。输入以下代码并保存子设置大小()设置图片大小“出错时图片数量继续下一步”忽略错误=1保存文档。' inline shapes . count ' inline shapes类型图片活动文档。内嵌形状(n)。高度=400 '将图片高度设置为400像素。内联形状(n)。宽度=300 '将图片宽度设置为300像素n=1到活动文档。形状。“计数”形状类型图片活动文档。形状(n)高度=400 '将图片高度设置为400像素。宽度=300 '将图片宽度设置为300像素sub。

3.返回word，工具-宏-宏(或者直接按Alt F8)，重新进入宏界面，选择刚刚编辑好的宏，点击“运行”按钮，就这样！(图片很多，可能需要一些时间。)缩放文章。这部分是关于缩放word中的所有图片！具体操作同上，只是代码部分略有修改。代码如下：Sub setpicsize()设置图片大小Dim n '错误恢复时的图片数dimpicwidthdimpicheight next '忽略n=1的错误以激活文档。' inline shapes . count ' inline shapes类型picheight=ActiveDo cument。内嵌形状(n)。Heightpicwidth=ActiveDocument。内嵌形状(n)。Height=picheight * 1.1 '将高度设置为activedocument的1.1倍。内联形状(n)。width=picwidth * 1.1 '将宽度设置为1.1倍nextnfor n=1以激活document.shapes.count' shapes类型图片pic height=active document . shapes(n)。height pic width=active document . shapes(n)。widthactivedocument.shapes (n)。高度=桌面高度* 1.1 '将高度设置为activedocument.shapes (n)的1.1倍。宽度=桌面宽度* 1.1 '将宽度设置为1.1倍。如果要将所有图片居中，可以在循环中添加以下语句：activedocument。内嵌形状(n)。范围。段落格式。alignment=wdalignparagraph center ' left alignparagraph left注意：这里的Shapes(InlineShapes)不仅指图片，还包括其他形状、freeforms、OLE对象、ActiveX控件、图片等。