word一次性调整所有图片大小(如何一次性调节word所有图片)

本文主要为大家介绍Word一次性调整所有图片大小（word中如何一次性调整所有图片），下面一起来看看具体内容吧。

Word中如何批量修改图片大小？很多朋友在使用Word的时候不知道如何批量修改图片的大小。下面就教大家如何在word中批量修改图片大小。

定长定宽法：

Step 1.打开Word，工具-宏-宏（或者直接按Alt+F8）进入宏界面，如下图，输入一个宏名，自己创建宏名，记住就好！

Step 2.宏名设置好后，点击“创建”进入Visual Basic编辑器，输入以下代码并保存

sub setpicsize() '设置图片大小

Dim n '图片数量

On Error Resume Next '忽略错误

forn=1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图像

ActiveDocument.InlineShapes(n).Height=400 '设置图片高度为400px

ActiveDocument.InlineShapes(n).Width=300 '设置图像宽度为300px

下一个

Forn=1 ToActiveDocument.Shapes.Count '形状类型图像

ActiveDocument.Shapes(n).Height=400 '设置图片高度为400px

ActiveDocument.Shapes(n).Width=300 '设置图像宽度为300px

下一个

结束子

Step 3. 回到word，进入工具-宏-宏（或者直接按Alt+F8），再次进入宏界面，选择刚才编辑的宏，点击“运行”按钮。需要一些时间）

缩放方法

这部分的内容是将word中的所有图片按比例缩放！

具体操作同上，只是代码部分稍作修改，代码如下：

sub setpicsize() '设置图片大小

Dim n '图片数量

宽度

高度

On Error Resume Next '忽略错误

for n=1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片

picheight=ActiveDocument.InlineShapes(n).高度

picwidth=ActiveDocument.InlineShapes(n).宽度

ActiveDocument.InlineShapes(n).Height=picheight * 1.1 '设置高度为1.1倍

ActiveDocument.InlineShapes(n).Width=picwidth * 1.1 '设置宽度为1.1倍

下一个

For n=1 To ActiveDocument.Shapes.Count '形状类型图像

picheight=ActiveDocument.Shapes(n).Height

picwidth=ActiveDocument.Shapes(n).宽度

ActiveDocument.Shapes(n).Height=picheight * 1.1 '设置高度为1.1倍

ActiveDocument.Shapes(n).Width=picwidth * 1.1 '设置宽度为1.1倍

下一个

结束子

如果还想把所有图片都居中，可以在循环中加入如下语句：

ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment=wdAlignParagraphCenter

'左对齐：wdAlignParagraphLeft

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

Word 就是这样批量调整图片大小的。这两种方式各有优缺点，大家可以根据情况选择。

关于Word一次性调整所有图片大小（word中如何一次性调整所有图片）的介绍到这里就结束了，了解更多办公软件知识可以收藏我们的网站，我们将为你提供更多精彩内容。