本文为大家介绍word里面如何批量修改图片的大小(word中如何批量修改图片尺寸大小)，下面和小编一起看看详细内容吧。
如何在word中批量修改图片大小如何在word中批量修改图片固定大小。相信很多人都用过电脑中的word文档功能，因为它经常被很多人使用，非常实用。
解决方法：按alt+f11。然后右击项目插入模块，然后粘贴sub macro()
我的宽度=4.13
我的身高=5.48
对于activedocument.inlineshapesishape.height=28.345 * myheigth 中的每个ishape
ishape。宽度=28.345 * 我的宽度
下一个ishape
结束子
再次按f5，就是这样。
其中，mywidth=4.13，myheigth=5.48。您可以在此处更改数字的大小。
定长定宽法：
1、打开word，工具-宏-宏（或者直接按alt+f8）进入宏界面，如下图，输入一个宏名，自己创建宏名，记住就好！
\
2.宏名准备好，点击“创建”进入visual basic编辑器，输入以下代码并保存sub setpicsize() '设置图片大小
dim n '图片数量
on error resume next '忽略错误
forn=1 toactivedocument.inlineshapes.count 'inlineshapes类型图片activedocument.inlineshapes(n).height=400 '设置图片高度为400pxactivedocument.inlineshapes(n).width=300 '设置图片宽度为300pxnextn
forn=1 toactivedocument.shapes.count '形状类型图片activedocument.shapes(n).height=400 '设置图片高度为400pxactivedocument.shapes(n).width=300 '设置图片宽度为300pxnextn
结束子
\
3、回到word，工具-宏-宏（或者直接按alt+f8），再次进入宏界面，选择刚才编辑的宏，点击“运行”按钮，就可以了！ （当图片较多时，可能需要一些时间）缩放法
这部分的内容是将word中的所有图片按比例缩放！
具体操作同上，只是代码部分稍作修改，代码如下：
sub setpicsize() '设置图片大小
dim n '图片数量
宽度
高度
on error resume next '忽略错误
for n=1 toactivedocument.inlineshapes.count 'inlineshapes类型图片picheight=activedocument.inlineshapes(n).heightpicwidth=activedocument.inlineshapes(n).widthactivedocument.inlineshapes(n).height=picheight * 1.1 '设置高度为1.1倍activedocument .inlineshapes(n).width=picwidth * 1.1 '设置宽度为nextn的1.1倍
for n=1 to activedocument.shapes.count 'shapes类型图片picheight=activedocument.shapes(n).heightpicwidth=activedocument.shapes(n).widthactivedocument.shapes(n).height=picheight * 1.1 '设置高度为1.1 times activedocument.shapes(n).width=picwidth * 1.1 '设置宽度为nextn的1.1倍
结束子
如果还想把所有图片都居中，可以在循环中加入如下语句：
activedocument.inlineshapes(n).range.paragraphformat.alignment=wdalignparagraphcenter' 左对齐：wdalignparagraphleft
注意：此处的形状（inlineshapes）不仅指图片，还包括其他形状，如自选图形、任意多边形、ole对象、activex控件、图片等。
好了，这就是word中批量修改图片大小的方法。这两种方法各有优缺点。大家可以根据情况选择！
好了，word里面如何批量修改图片的大小(word中如何批量修改图片尺寸大小)的介绍到这里就结束了，想知道更多相关资料可以收藏我们的网站。