Word宏：Word中的图片批量统一大小及同比例缩放(图)
word中批量修改图片大小
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽！方法一：这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行!2、宏名起好了，单击"创建"进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n ' 图片个数On Error Resume Next ' 忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n)。
Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n)。
Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片ActiveDocument.Shapes(n)。
Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n)。
Width = 300 '设置图片宽度300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击"运行"按钮，就可以了!(图片多时，可能会花一些时间)方法二：1、在word中按alt+f11组合键，进入VBA模式2、在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块3、把下面代码复制，粘贴进去。
4、更改数值，改一下宽度和高度数值(10)，点运行(类似播放按钮。
将Word文档中所有图片统一修改大小，无论多少张都可以一键搞定！
将Word⽂档中所有图⽚统⼀修改⼤⼩，⽆论多少张都可以⼀键搞定！我们平时在写论⽂，或者给长篇⽂档进⾏排版时，难免会对插⼊的图⽚进⾏格式设置。
⽐如说图⽚的环绕格式、图⽚的尺⼨⼤⼩等。
⽽⽂档⾥⾯的图⽚⼜⾮常多，⼀张张去修改确实很⿇烦。
有什么⽅法可以⼀键修改图⽚的环绕格式、图⽚的尺⼨⼤⼩呢？这个问题也是这⼏天粉丝经常问我的⼀个问题。
下⾯我给⼤家讲解详细的步骤，记得要转发收藏⼀份哦~具体操作步骤如下：第⼀步：在插⼊图⽚之前先将图⽚环绕格式设置为“四周型”或“浮于⽂字上下⽅”。
1、⾸先我们应该知道Word⽂档插⼊的图⽚默认是“嵌⼊型”的，这种格式图⽚不能任意拖动拖动。
2、点击左上⾓“⽂件” -- 点击“选项”。
3、弹出“Word选项”对话框 -- 点击“⾼级”选项卡 -- 在右边找到“剪切、复制和粘贴” -- 将下⽅的“将图⽚复制/粘贴为”选择“四周型” -- 点击“确定”按钮。
4、设置完成之后，我们以后插⼊的图⽚默认就是“四周型”的了，⽽且图⽚可以随意的拖动，看看动图演⽰。
第⼆步：激活“选择多个对象”这个功能按钮。
1、我们都知道在Excel中可以通过对象选择表格中的所有图⽚。
当然Word也可以，你只需激活下图中的“选择多个对象”这个功能按钮即可。
2、点击左上⾓“⽂件” -- 点击“选项”。
3、弹出“Word选项”对话框 -- 点击“⾃定义功能区” -- “从下列位置选择命令”选择“不在功能区中的命令” -- 找到“选择多个对象” -- 点击“添加”按钮添加到“开始”选项卡的“新建组”中 -- 点击“确定”按钮即可。
4、设置完成之后可以看到在“开始”选项卡下多了⼀个“选择多个对象”的功能。
看看动图演⽰。
以上的2步设置完成之后，以后你插⼊的图⽚都是“四周型”格式，⽽且可以⼀次性选中⽂档中的所有图⽚。
第三步：如果你的Word⽂档后缀名是“.docx”，修改为“.doc”。
因为“选择多个对象”是早期的功能，不⽀持“.docx”后缀格式的，只⽀持“.doc”格式的。
宏命令将图片批量替换成统一大小
宏命令将图片批量替换成统一大小步骤：1.点击【文件】-【选项】，在弹出的窗口中选择【自定义功能区】，勾选开发工具选项后，点击【确定】，如下图：2.会在菜单上方出现开发工具的相关功能菜单，选择【开发工具】，点击【宏】，如下图：3.点击【宏】后，弹出提示框，在宏名处输入宏名“setpicsize”点击创建按钮，如下图：4.在弹出的VBA窗口中将如下代码复制到其中，如下图：统一替换图片大小的VBA代码如下（单引号后面的内容为备注）：'1.改变图片大于14.5cm的宽度'注：高跟宽的数值单位为px,而word中的单位为cm（1px约等于0.0352cm）Sub setpicsize()Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapespicheight = ActiveDocument.InlineShapes(j).Height '高度赋值picwidth = ActiveDocument.InlineShapes(j).Width '宽度赋值If (ActiveDocument.InlineShapes(j).Width > 375 And ActiveDocument.InlineShapes(j).Width < 415) Then '判断图片宽度范围，将宽度大于13.23cm的图片，小于14.68的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度ElseIf (ActiveDocument.InlineShapes(j).Width > 417) Then '判断图片宽度范围，将宽度大于14.7cm的图片统一缩放ActiveDocument.InlineShapes(j).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '图片居中ActiveDocument.InlineShapes(j).Width = 411 '设置宽度为411px,约14.5cm ActiveDocument.InlineShapes(j).Height = picheight * (411 / picwidth) '设置图片高度,根据设置的宽度值等比例缩放图片高度End IfNext jEnd Sub注意：（1）修改图片尺寸时，代码运行前需要根据实际情况进行修改图片尺寸的大小范围限制代码，图中标注处所示（2）修改图片尺寸时，需计算修改的图片的宽高值，因为图片的高跟宽的数值单位为px，而word中的单位为cm，根据每台电脑不同的分辨率，1px约等于0.0352cm （3）图片替换之前文档最好先保存副本，因为运行宏后的文档无法撤销操作，如果操作错误，只能通过关闭文档时，选择不保存后，重新打开（4）代码可用英文状态下的单上引号进行备注，删掉不影响代码的运行（5）如修改图片尺寸的代码无需修改，可直接在点击【宏】后，在弹出提示框中选择宏名“setpicsize”，点击运行按钮进行操作（6）一次性修改的文档中图片过多时，文档会未响应一小段时间，请耐心等待即可5.点击运行按钮，运行统一替换图片尺寸代码。
Word如何批量统一插入文档中的图片尺寸大小
Word如何批量统一插入文档中的图片尺寸大小
有个朋友问在Word的表格里面插入十几张图片，在一个单元格里设定好的图片的大小，怎么能够将这个尺寸应用于其他的图片？其实可以通过这个办法来实现。
即，先导入所有的图片，然后按住Ctrl键，把他们都选上。
再在图片上面点击右键，选择设置图片格式，然后再选择大小栏，先把最下面的两个对勾去掉，然后在在宽度和高度栏写入数值，最后确定就行。
这样所有的照片就可以成为统一的尺寸了。
操作简述首先新建Word文档，并设置页边距，这个页边距和以往有所不一样，它的大小决定着图片的尺寸。
切记，页边距越大图片越小。
接下来就是插入预先准备好的图片，插入好之后执行文件---另存为网页命令，并选择保留路径，确定之后你会发现，在指定路径的位置生成了一个文件夹，而这个文件夹中的所有图片都是统一大小尺寸的，如假设不信，你可以看看哦。
操作步骤文件---页面设置---页边距这里的左右页边距就是你要让自己的图片变成多大，页边距越大，图片之后就会越小下面插入预先准备好的图片看看，原本大小不一的图片瞬间整齐了下面要做的事情就是把这些图片从word导出来文件---另存为网页---网页然后关掉word文件，你就可以看到旁边多了一个文件夹，里面就是刚才你调整过大小的图片.接下来插入图片就可以看到统一大小的图片了。
Word如何批量统一插入文档中的图片尺寸大小。
word中一次性调整所有图片大小
从网上下载的图片一般都是大小不一致的。在这种情况下，可以通过一些看图软件来统一图片的大小。下面，告诉大家一个使用简单工具快速批量调整图片大小的方法。这个工具就是大家经常使用的office word。
其实是一个很简单的办法，方便又快捷。通过调整word页面的宽度，就可以自动调整载入图片的大小，又不会降低图片的质量。这么简单的办法，让我们一起来学习吧！
3.点击word窗口中“插入”标签中的图片按钮，会弹出对话框。在对话框中选择需要进行调整大小的图片（可批量导入图片），图片载入后，word就会自动对图片大小进行“网页”类型。进入网页保存后的图片文件夹，里面的图片就是统一调整大小之后的图片了
步骤
1.打开word软件。在上面的工具栏中单击“页面布局”。在弹出的工具栏中单击“页边距“，就可以自定义页边距了。单击自定义页边距，弹出窗口如图所示。
2.在页面设置中对 ”页边距“的“左”和“右”选项进行设置。左右边距之间的距离就是将要调整图片的最终宽度大小。此处可根据个人需求自定义设置。
批量设置word中图片的大小
批量调整word 中图片大小一、无条件修改图片大小1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏命名如下：setpicsize内容如下：Sub setpicsize() '设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 100 '设置高度ActiveDocument.InlineShapes(j).Width = 100 '设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽100px，高100px二、判断条件后进行修改Sub setpicsize()'设置图片大小Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes If ActiveDocument.InlineShapes(j).Width > 480 Then '如果宽度大于480 ActiveDocument.InlineShapes(j).Width = 400 '设置宽度为400End IfNext jEnd Sub三、把word中的所有图片修改成固定并且相同的长和宽1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名可自己定义。
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存Sub setpicsize() '设置图片大小Dim n'图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了。
Word文档批量把所有图片调整为相同大小，这个方法简单又实用
Word文档批量把所有图片调整为相同大小，这个方法简单又
实用
在我们的工作中，编辑Word文档的时候，如何将插入的图片，批量调整为相同的大小、相同的尺寸呢？如果你一个个修改这些图片，那就太浪费时间了，今天就跟大家分享一个简单又实用的方法。
1.首先打开Word文档，点击【文件】-【选项】-【高级】，找到“将图片插入/粘贴为”，选择【四周型】。
（PS：图片要求为非嵌入式的任何一种环绕方式都可以）
2.然后再次点击【文件】-【选项】-【自定义功能区】，先选择【所有命令】，再找到【选择多个对象】，选中后点击【添加】到右边的自定义功能区。
3.接着需要将Word格式另存为Doc，在键盘上按下功能键【F12】另存为，保存类型改为：“Word97-2003文档*.doc”。
4.最后我们就可以一键批量修改图片大小了，在Word文档里插入大量图片，点击【选择多个对象】快捷按钮，右键图片【设置自选图形/图片格式】，修改图片高度、宽度，点击【确定】，图片尺寸瞬间统一。
这个方法是不是比一张张修改得快多了？如果你的图片不是用于Word文档，也需要修改图片尺寸，可以借助【迅捷图片转换器】。
•在批量处理中找到「批量剪裁」功能；
•一次性最多支持批量修改50张图片；
•有固定的比例可以选择也可以自定义。
当图片体积太大，还可以进行批量「图片压缩」，添加图片后设置压缩模式、清晰度、分辨率、输出格式，以及压缩后的图片大小。
以上就是把所有图片调整为相同大小的方法，简单又实用，希望可以在工作中帮到你。
如何统一调整WORD文档中的图片尺寸
如何统一调整WORD文档中的图片尺寸新建宏1、打开WORD,Alt+F8调出宏编辑窗口2、在宏名中填入名称，如名称为“调整图片大小”，然后点“创建“按钮，创建新宏，将以下内容复制填入：Word中调整图片大小的宏其中：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 160 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 120 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 160 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 120 '设置图片宽度300px Next n End SubSub 调整图片大小() '' 调整图片大小宏'Dim j '计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 328 '设置高度（28.4像素/厘米）ActiveDocument.InlineShapes(j).Width = 457 '设置宽度（28.4像素/厘米）Next j End Sub图1然后关闭。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
•Word宏：Word中的图片批量统一大
小及同比例缩放（图）
有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。
下面的方法就是告诉我们如何来实现很多的图片统一大小。
实现代码：
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next'忽略错误
For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400'设置图片高度
为400px
ActiveDocument.InlineShapes(n).Width = 300'设置图片宽
度300px
Next n
For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px
Next n
End Sub
使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。
操作步骤如下：
1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
2）插入normal工程“模块”。
3）在“模块”中粘贴上面的代码。
4）保存，返回你要统一图片大小的Word文档。
运行“工具”-“宏”-"宏命令"。
看一下结果，是不是你想要的统一图片大小。
我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。
按比例缩放的方法和上面的是一样的，只是代码变化一下，过程就不熬述。
VBA 代码如下：
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next'忽略错误
For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400'设置图片高度
为400px
ActiveDocument.InlineShapes(n).Width = 300'设置图片宽
度300px
Next n
For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px
Next n
End Sub
（注：文档可能无法思考全面，请浏览后下载，供参考。
可复制、编制，期待你的好评与关注！）。