word里如何批量处理图片的大小-不知道你就out啦

将Word⽂档中所有图⽚统⼀修改⼤⼩，⽆论多少张都可以⼀键搞定！我们平时在写论⽂，或者给长篇⽂档进⾏排版时，难免会对插⼊的图⽚进⾏格式设置。

⽐如说图⽚的环绕格式、图⽚的尺⼨⼤⼩等。

⽽⽂档⾥⾯的图⽚⼜⾮常多，⼀张张去修改确实很⿇烦。

有什么⽅法可以⼀键修改图⽚的环绕格式、图⽚的尺⼨⼤⼩呢？这个问题也是这⼏天粉丝经常问我的⼀个问题。

下⾯我给⼤家讲解详细的步骤，记得要转发收藏⼀份哦~具体操作步骤如下：第⼀步：在插⼊图⽚之前先将图⽚环绕格式设置为“四周型”或“浮于⽂字上下⽅”。

1、⾸先我们应该知道Word⽂档插⼊的图⽚默认是“嵌⼊型”的，这种格式图⽚不能任意拖动拖动。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾼级”选项卡 -- 在右边找到“剪切、复制和粘贴” -- 将下⽅的“将图⽚复制/粘贴为”选择“四周型” -- 点击“确定”按钮。

4、设置完成之后，我们以后插⼊的图⽚默认就是“四周型”的了，⽽且图⽚可以随意的拖动，看看动图演⽰。

第⼆步：激活“选择多个对象”这个功能按钮。

1、我们都知道在Excel中可以通过对象选择表格中的所有图⽚。

当然Word也可以，你只需激活下图中的“选择多个对象”这个功能按钮即可。

2、点击左上⾓“⽂件” -- 点击“选项”。

3、弹出“Word选项”对话框 -- 点击“⾃定义功能区” -- “从下列位置选择命令”选择“不在功能区中的命令” -- 找到“选择多个对象” -- 点击“添加”按钮添加到“开始”选项卡的“新建组”中 -- 点击“确定”按钮即可。

4、设置完成之后可以看到在“开始”选项卡下多了⼀个“选择多个对象”的功能。

看看动图演⽰。

以上的2步设置完成之后，以后你插⼊的图⽚都是“四周型”格式，⽽且可以⼀次性选中⽂档中的所有图⽚。

第三步：如果你的Word⽂档后缀名是“.docx”，修改为“.doc”。

因为“选择多个对象”是早期的功能，不⽀持“.docx”后缀格式的，只⽀持“.doc”格式的。

1分钟批量统一Word中300张图片的大小！无需插件、代码，超级简单很多时候我们需要将在Word中插入很多张图片，插入完成之后，一般我们还要统一它们的大小，如果是少量的图片的话，我们可以一个一个选择，然后再进行设置。

或者先设置好一张图片后，再通过【F4】键，进行批量设置。

但是呢，这些方法只适合用于少量图片大小的统一中，对于较多的图片，比如几百张图片，用这种方法显然不太适合，既费时又费力。

那么有什么方法可以批量统一Word中几百张图片的大小呢？其实是有的。

今天小编就要给大家分享一个可以批量统一Word中300张图片的大小的方法，下面就来看看具体的操作步骤吧~第一步：【将图片插入/粘贴为】设置为【四周型】我们需要先将【将图片粘贴插入为】设置为【四周型】。

怎么进行设置呢？点击【文件】，再点击【选项】，然后点击【高级】，找到【将图片插入/粘贴为】这一选项，之后点击选择【四周型】即可。

第二步：添加【选择多个对象】第二步，我们就要添加一个快速访问工具——【选择多个对象】了。

直接点击【文件】，点击【选项】，点击【快速访问工具栏】，然后点击选择【所有命令】，找到【选择多个对象】，再点击【添加】，即可将【选择多个对象】添加到快捷访问工具栏中了。

第三步：另存为【Word 97-2003 文档(*.doc)】格式第三步，我们要做的是，将整个Word文档另存为【Word 97-2003 文档(*.doc)】格式了。

直接点击【文件】，选择【另存为】，保存类型选择【Word 97-2003 文档(*.doc)】，然后再点击【保存】即可。

第四步：批量插入多种图片接下来我们就可以在Word中批量插入多种图片了。

直接点击菜单栏中的【插入】，再点击【图片】，选择要进行插入的图片即可。

第五步：批量统一图片的大小图片插入完成之后，我们就可以进行最后一步了，即批量统一图片的大小。

为了更好的显示效果，小编就以动图来展示了。

点击顶部的【选择多个对象】工具，然后再点击【全选】，点击【确定】，接下来再右键点击【设置自选图形/图片格式】，进入图片格式窗口，设置好图片高度的绝对值和宽度的绝对值，去掉【锁定纵横比】前的勾勾，再点击【确定】即可。

Word中添加这个按钮，就能一次性修改1000张图片的尺寸2020-08-19 23:14:16编辑word长文档时，免不了插入大量尺寸不一的图片，要想一个一个修改这些图片的大小，有多浪费时间，可想而知。

文本就给你分享如何一次性批量修改图片的尺寸，Word中仅需添加这个按钮，就能瞬间完成。

少量图片文档中的图片数量不太多时，可用快捷键F4搞定，F4的功能是重复上一步操作。

那么就把第一张图片的大小尺寸设置合适后，依次选中后面每张图片，然后按下F4键，也会很快完成。

这里准备了一个有几张图片的文档来做演示。

先右键点击第一张图，点击【图片】，再点击【大小】，输入数值。

接着就是按F4了。

顺便提示下，F4这个快捷键非常实用，得扎实用起来。

怎么样，很简单吧？只不过这个方法在图片特别多的时候就显得没有优势了。

#职场干货#大量图片大量到底有多少才合适，这个因人而异，我认为至少20张以上吧。

用上面的文档继续演示，大批量修改图片大小尺寸。

❶将图片设置四周型，点击【文件】→【选项】→【高级】，找到【将图片插入/粘贴为】，下拉框选择【四周型】。

❷添加对象，再次选择选项窗口，找到【快速访问工具栏】→【所有命令】→【选择多个对象】→【添加】。

❸另存为文档，因为【选择多个对象】这个工具不支持word2016版本，所以应先将文档另存为“Word97-2003文档”。

❹文档另存后，就在菜单栏左上角出现【选择多个对象】的按钮，如下图所示，红色矩形框圈起来的。

❺点击刚才添加的【选择多个对象】按钮，弹出的对话框中选择【全选】，然后确定即可把所有对象选中。

添加这个工具的目的就是点击一次选择所有图片，当然本文中指的是所有图片。

至此，所有图片就可以选择了，不管是一张、两张……，还是一千张、两千张，只要轻轻点下这个按钮，瞬间搞定。

选中所有图片后，再按【格式】，然后更改大小就非常方便了，你想想能节约多少时间呢？。

Word中将图片变成统一大小的操作技巧
在word排版中，如果内容有多个图片，您想把所有图片变成统一大小，图片少你可以手拖拉，但是如果是几十张上百张，累死人。

今天，店铺就教大家在Word中将图片变成统一大小的操作技巧。

Word中将图片变成统一大小的操作步骤
准备图片，我就以5张图片为例吧。

打开word，导入图片。

插入-图片，选择图片插入，进入目录后，Ctrl+A即可选择全部。

按Alt+F8，进入宏编辑窗口。

首先输入宏名称，然后点击新建即可。

在代码窗口中输入如下代码：
Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersT oPoints(9.2) '高5CM End If Next 点击运行，如下图：
运行后，关闭宏编辑窗口，放心，关闭窗口后，宏还在，可以不保存。

结果如下：。

在使用Word编辑文档的时候，我们时常会插入一些图片素材，如果word中插入了几十甚至上百张图片，而且尺寸大小都不一样，为了美观统一。

需要将所有的图片调整成相同的大小，你该不会一张张的调整吧？Word中还有更高能的技巧：那就是使用宏（VBA）来实现Word批量修改图片大小。

下面，一起来看看Word批量调整图片尺寸的操作技巧：（1）首先插入图片或直接打开已有图片的Word图文文档。

（2）直接按【Alt+F8】打开“宏”对话框，在“宏名”文本框中输入宏名称"setpicsize"，然后点击“创建”按钮。

（3）打开VBA编辑器（也可直接按【Alt+F11】快捷键），删除窗口中原有的通用代码，然后将下面的代码复制粘贴到窗口中。

Sub setpicsize() '设置图片尺寸Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cmActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cmNext nEnd Sub技巧提示：代码中图片的宽度（Height ）= 170.1 '设置图片高度为 6cm ）；高度（Width） = 283.5 '设置图片宽度 10cm，是如何计算得出的。

方法为：Word中的尺寸单位默认是cm（厘米），而1cm等于28.35px（像素），由于代码中换算设置的单位是px（像素）。

所以就用尺寸高度或宽度值乘像素值。

即为：7*28.35=198.45；宽度换算方法与此相同。

（3）然后按【Ctrl + S 】键保存内容，关闭窗口。

word中批量设置图片的高度和宽度
word中批量设置图片的高度和宽度:
==============================
首先通过插入图片，将多张图片同时插入word中，
在word中按Alt+F11组合键,进入VBA模式
在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
把下面代码复制,粘贴进去.
更改数值, 改一下宽度和高度数值(10为图片宽度或高度（厘米）)其他的数值不用动，点运行(类似播放按钮.)或F5,即可设置文档中全部图片
如果想只更改高度，宽度按照比例缩放，那么可以将下面的代码的第2行和第6行删掉
Sub Macro()
Mywidth=10
Myheigth=10
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub。

[手把手]word批量导入、修改图片大小和压缩图片分步阅读工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。

下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。

Microsoft Word 2007一、批量导入图片1. 1将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。

2. 2打开word，依次点击：插入→图片3. 3在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹，方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。

方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入”4. 4 效果如图END批量修改图片尺寸1. 1接上面的例子。

方法一：在word软件界面中依次点击：开发工具→宏方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口2. 2在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建3. 3弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片ActiveDocument.InlineShapes(n).Height = 5 * 28.35 '设置图片高度为5cm （1cm等于28.35px）ActiveDocument.InlineShapes(n).Width = 4 * 28.35 '设置图片宽度4cmNext nEnd Sub'其中图片本例中图片尺寸为5cm和4cm4. 4点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……5. 5待标题栏上方的[正在运行]消失后，点击右上角小叉关闭“Microsoft Visual Basic”窗口。

批量设置word 里图片的大小及版式的技巧1.批量设置固定大小工具-宏-新建Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80pxNext nEnd Sub运行即可2.批量按比率缩小或放大新建宏Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next nEnd Sub3批量将图片转成嵌入型新建宏Sub 图片转嵌入型()Dim apic As ShapeApplication.ScreenUpdating = FalseFor Each apic In ActiveDocument.Shapesapic.ConvertToInlineShape '转换为嵌入型NextApplication.ScreenUpdating = TrueSelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat.LeftIndent = MillimetersToPoints(0).RightIndent = MillimetersToPoints(0).SpaceBefore = 6.SpaceBeforeAuto = False.SpaceAfter = 6.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphCenter.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = MillimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAuto End WithEnd Sub4.批量将图片转四周型新建宏Sub 图片版式转换四周型()Dim apic As Variant, shapeType As WdWrapTypeOn Error Resume NextFor Each apic In ActiveDocument.InlineShapesapic.ConvertToShapeWith oShapeoShape.WrapFormat.Type = 0 '四周型oShape.WrapFormat.AllowOverlap = False '不允许重叠End WithNextEnd Sub。

Word文档批量把所有图片调整为相同大小，这个方法简单又
实用
在我们的工作中，编辑Word文档的时候，如何将插入的图片，批量调整为相同的大小、相同的尺寸呢？如果你一个个修改这些图片，那就太浪费时间了，今天就跟大家分享一个简单又实用的方法。

1.首先打开Word文档，点击【文件】-【选项】-【高级】，找到“将图片插入/粘贴为”，选择【四周型】。

（PS：图片要求为非嵌入式的任何一种环绕方式都可以）
2.然后再次点击【文件】-【选项】-【自定义功能区】，先选择【所有命令】，再找到【选择多个对象】，选中后点击【添加】到右边的自定义功能区。

3.接着需要将Word格式另存为Doc，在键盘上按下功能键【F12】另存为，保存类型改为：“Word97-2003文档*.doc”。

4.最后我们就可以一键批量修改图片大小了，在Word文档里插入大量图片，点击【选择多个对象】快捷按钮，右键图片【设置自选图形/图片格式】，修改图片高度、宽度，点击【确定】，图片尺寸瞬间统一。

这个方法是不是比一张张修改得快多了？如果你的图片不是用于Word文档，也需要修改图片尺寸，可以借助【迅捷图片转换器】。

•在批量处理中找到「批量剪裁」功能；
•一次性最多支持批量修改50张图片；
•有固定的比例可以选择也可以自定义。

当图片体积太大，还可以进行批量「图片压缩」，添加图片后设置压缩模式、清晰度、分辨率、输出格式，以及压缩后的图片大小。

以上就是把所有图片调整为相同大小的方法，简单又实用，希望可以在工作中帮到你。

Word怎样批量修改图⽚⼤⼩、位置？有⽐这5个⽅法更全的么？Word批量修改图⽚⼤⼩、位置，5个⽅法集合召唤神龙！⼀、Word批量修改图⽚位置（⼀）替换功能Word替换功能很强⼤，不仅可以批量替换⽂本、修改⽂本格式，还可以批量修改图⽚位置~Ctrl+H替换——查找内容：光标定位，左下⾓点击【更多】，底部点击【特殊格式】，选择【图形】（根据原⽂对段落格式进⾏相应设置）。

或者直接输⼊^g替换为：左下⾓点击【更多】，左下⾓点击【格式】，选择【段落】——【缩进和间距】⾃定义设置，右下⽅点击确定——点击【全部替换】。

（⼆）借助表格借助表格可以让图⽚固定位置~1、插⼊表格点击【插⼊ - 表格】，根据所需插⼊图⽚数量、排布情况选择⾏、列。

2、设置⾏⾼、单元格边距选中表格右键，选择【表格属性】——点击【⾏】选项卡，【尺⼨】勾选【指定⾼度】，设置图⽚⾼度——点击【确定】。

右键，选择【表格属性】——点击【单元格】选项卡，右下⽅点击【选项】，⾃定义单元格边距——点击【确定】。

3、导⼊图⽚（三）选择多个对象这个⽅法貌似⽐较⾼级⼀点？~1、添加功能点击【⽂件 - 选项 - ⾃定义功能区】，点击【从下列位置选择命令】选择【所有命令】，下⽅找到并点击【选择多个对象】，右侧【主选项卡】下边点击【新建组】，最后点击中间的【添加】按钮。

点击【⽂件 - 选项 - ⾼级】——【剪切、复制和粘贴- 将图⽚插⼊/粘贴为】，设置环绕⽅式。

⽂件后缀格式【.docx】改为【.doc】。

4、图⽚格式【开始】功能区最后⼀项【选择多个对象】——弹窗左下⾓点击【全选】——右键设置图⽚格式。

⼆、Word批量修改图⽚⼤⼩、位置万能的F4重复键~⽅法：双击第⼀张图⽚，修改⼤⼩或位置作为样本——分别选中其它图⽚按F4键。

三、批处理插件批量修改图⽚⼤⼩遇到需要批量修改图⽚⼤⼩，可以⽤⼀个插件~【美图秀秀批处理】，再多图⽚⼀键搞定~⽅法：左侧点击【添加图⽚】——右下⾓设置修改图的保存【路径】——右上⽅设置【修改尺⼨（保持原图⽐例）】，点击【更多】调整【画质】——右下⾓点击【保存】。

【Word】如何将Word里插入的所有图片批量调整统一大小？
【操作方法及步骤】
方法一：神奇F4按键Step1 右击图片，选择“大小和位置”，去掉“锁定纵横比”前面的√，再调整图片大小。

Step2按住F4，笔记本电脑需要同时按住fn+F4，然后一个个点击剩下的图片。

F4是重复上一步的功能键，故有此功效。

【优缺点】适合文档中图片数量较少的情况下操作，对于大量图片的文档不适用。

方法二：大量图片同时调整（需先调整Word文档格式，再进行图片插入及编辑）Step 1 更改图片文字的环绕方式为“四周型”，点击“文件”菜单→选项→高级→“将图片粘贴\插入为”→选择“四周型”（PS：此前插入的图片不受此限制，此后插入的图片才为“四周型”）。

Step2将“选择多个对象”命令按钮添加至快速访问工具栏。

右击快速访问工具栏，选择“自定义功能区”。

Step 3选择“快速访问工具栏”→在顶部“从下列位置选择命令”中选择“所有命令”→找到“选择多个对象”命令按钮，添加至快速访问工具栏。

Step 4 将文档另存为“Word 97-2003 文档”，“选择多个对象”功能仅限于老版本的Word使用，新版本已不再支持。

Step 5单击“选择多个对象”→选中所有的图片→修改图片格式大小
【优缺点】适合文档中图片数量较多的情况下操作，但是修改后，图片会乱窜，无法停留在原先固定的位置。

如何统一调整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然后关闭。

word怎么批量设置图片大小
批量将图片调整到相同尺寸大小，其实说实话PS也不是很好操作的。

对于新手来说还是有一定难度，怎么办?下面店铺就教大家Word 文档批量设置图片大小的方法，少用Word的朋友多多学习哦。

Word文档批量设置图片大小的步骤
1、打开WORD，在”工具“菜单下选择”选项“命令。

2、在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”，为什么要这么操作，因为我们默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。

3、在“插入”菜单中选择“图片”/“来自文件”。

4、在“插入图片“对话框中选择要插入的图片。

5、在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”。

6、使用“选中多个对象”，将所有插入的图片全部选中。

7、双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。

8、这个时候你会发现所有的图片都变成了统一尺寸大小了。

9、那么怎么样将这些图片导出来呢?在”文件“菜单中选择”另存为“命令。

10、在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。

11、打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。

12、大家可以发现，我们修改的后的图片都是相同的尺寸了。

13、其实保存的文件中有一个原图和修改尺寸后的图，我以大小进行排序的话可以很快速将他们分离出来。

如何批量修改Word中图⽚⼤⼩和缩放⽐例的⽅法介绍最近⼩编遇到⼀个问题：需要将⼀篇word⽂档中的所有图⽚全部缩⼩⽐例。

⼀张张改太⿇烦了。

于是从⽹上搜罗了⼀下，还真找到了解决办法。

需要注意的地⽅就是注意厘⽶与像素的换算关系。

⼀般情况下1厘⽶=28px 。

这个换算关系其实可以⽤计算器计算出来。

计算公式为图⽚改变之后的像素除以改变之后图⽚的⼤⼩厘⽶。

固定长宽篇这部分要说的是把word中的所有图⽚修改成固定的并且相同的长和宽！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 '设置图⽚宽度 300pxNextnForn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图⽚ActiveDocument.Shapes(n).Height = 400 '设置图⽚⾼度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图⽚宽度 300pxNextnEnd Sub3、返回word，⼯具－宏－宏（或者直接按Alt+F8），再次进⼊宏的界⾯，选择刚才编辑好的宏，并单击“运⾏”按钮，就可以了！（图⽚多时，可能会花⼀些时间）按⽐例缩放篇这部分要说的是把word中的所有图⽚按⽐例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize() '设置图⽚⼤⼩Dim n '图⽚个数DimpicwidthDimpicheightOn 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 '设置宽度为1.1倍NextnFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图⽚picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1 '设置⾼度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍NextnEnd Sub若还想使所有图⽚居中对齐，可在循环中加⼊下⾯的语句：ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter‘左对齐：wdAlignParagraphLeft注意：这⾥的Shapes（InlineShapes）不仅仅是指图⽚，也包含其它的，⾃选图形、任意多边形、OLE 对象、ActiveX 控件、图⽚等。

Word中500张图片如何统一大小？你该这么做，1分钟快速批量更改当我们在Word文档中插入多张大小不一的图片时，为了排版美观，需要将所有图片设置成统一大小。

调整图片大小的常规方法是选择图片，通过在图片四个角的节点上按左键拖动来调整图片大小，同时，也可以在图片“格式”选项卡——大小，手动输入图片的精确尺寸。

如果多张图片需要统一大小，可先将其中一张图片调整好尺寸，然后逐一选择其他图片，按【F4】来实现多张图片统一大小。

以上方法对几张或十来张可行，假如图片有100张甚至500张呢？我想使用【F4】也会显得捉襟见肘。

那么，针对大量图片有没有什么方法可以快速统一大小呢？今天，和大家分享关于多张图片快速批量统一大小的技巧，操作方法如下：一、设置图片文字环绕方式图片插入到Word文档中，默认文字环绕方式为“嵌入型”，我们需要将它的环绕方式设置为“四周型”。

操作方法：点击“文件”菜单——选项，在‘高级’中找到“将图片粘贴\插入为”，选择“四周型”。

设置图片文字环绕方式二、添加“选择多个对象”命令按钮可以将”选择多个对象“命令按钮添加至快速访问工具栏或任意一个功能选项卡，这里，我们将它添加到”快速访问工具栏”中。

操作方法：在快速访问工具栏上右击，选择“自定义快速访问工具栏”，在右侧所有命令中找到“选择多个对象”，将其添加至快速访问工具栏中。

添加“选择多个对象”按钮三、另存文档类型因为“选择多个对象”是前期版本中的功能，不支持2016的文档，需要将文档的类型另存为97-2003版本。

操作方法：按【F12】打开另存为窗口，在保存类型中选择“Word 97-2003 文档(*.doc)”，点击保存即可。

另存文档类型四、批量修改图片大小操作方法：点击“快速访问工具栏”上的“选择多个对象”，在弹出的对话框点击“全选”按钮，全选所有图片后，在图片右击，选择“设置自选图形/图片格式”，在大小选项卡中，手动输入图片的尺寸，将下方“锁定纵横比”复选框中的√去掉，点击“确定”即可。

Word中图⽚如何统⼀修改⼤⼩？按下快捷键「F4」，就能全部统⼀
⼤家好，欢迎⼤家来到⼿机办公达⼈，今天就来给⼤家讲⼀讲Word图⽚的排版技巧，相信⼤家
都经常会使⽤Word来写⽂案，⽽且Word的排版功能也是很强⼤的，只⽤F4这个快捷键，就能
将⽂档中的图⽚全部统⼀⼤⼩，下⾯就⼀起来看看吧。

⼀、插⼊图⽚
打开Word⽂档，点击⼯具栏上⾯的【插⼊】-【图⽚】，选择需要的图⽚并且插⼊到⽂档中。

⼆、选择图⽚
我们可以看到这些图⽚的⼤⼩每⼀张都是不同的，然后选择其中任意⼀张图⽚，⿏标右键选择
【⼤⼩和位置】。

三、修改图⽚⼤⼩
进⼊布局的窗⼝之后，先修改【⾼度的绝对值】，修改好之后，将下⾯的【锁定纵横⽐】取消勾选，这样【宽度的绝对值】就会随着⾼度的改变⽽改变，点击【确定】之后，图⽚就不会发
⽣变形。

四、F4统⼀⼤⼩
第⼀张图⽚的⼤⼩设置完成后，先不要进⾏其他步骤，先⽤⿏标选择第⼆张需要修改的图⽚，然后按下快捷键【F4】就能执⾏上⼀步的操作，图⽚就会⾃动修改⼤⼩，就可以和上⼀张图⽚
的⼤⼩⼀模⼀样了。

五、图⽚⼤⼩全部统⼀
通过上⾯的操作，⼤家应该知道该怎样做了吧，按住快捷键【F4】连续点击图⽚，图⽚⼤⼩就能全部统⼀了。

六、完整操作过程
这个图⽚统⼀的⽅法很简单，⽐较适合新⼿和图⽚⽐较少的⽂档，担⼼上⾯的步骤我没写详细，这次完整操作⼀遍给⼤家看。

以上的操作步骤就是分享给不懂的⼩伙伴，希望能够帮助到你，如果你在排版上还有什么问题，可以随时问⼩编，⼩编帮你。

word中批量修改图片大小的两个方法对于把ppt的内容拷贝到word中：对ppt的一页进行复制，然后粘贴到word中如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A 截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了)1.图片只需要符合文档大小即可方法：插入图片，word自动处理图片大小。

看一下下方的文件名按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的每一次按Ctrl+点击图片，被点击的图片放在首位效果：2.图片需要修改为具体的大小把图片复制，直接在word中粘贴，图片以原始大小显示按视图按宏，查看宏，输入setpicsize，按创建复制并粘贴以下程序并按调试+编译，看看程序有没有错误Sub setpicsize()Dim iDim Height, WeightHeight = 300Weight = 200On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片ActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_px Next iEnd Sub如果没有错误，保存(Ctrl+S)并退出(Alt+F4)然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成或者直接在代码页面按运行+运行子过程(F5)效果：程序二修改第x张图片到第y张图片的大小(可以分成很多段)Sub ModifyPhoto1()Dim i, x, yDim Height, WeightHeight = 80Weight = 100修改第x张图片到第y张图片的大小x = 4y = 13On Error Resume Next 忽略错误For i = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片If i >= x And i ActiveDocument.InlineShapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.InlineShapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iFor i = 1 To ActiveDocument.Shapes.Count Shapes类型图片If i > k ThenActiveDocument.Shapes(i).Height = Height 设置图片高度为Height_pxActiveDocument.Shapes(i).Width = Weight 设置图片宽度Weight_pxEnd IfNext iEnd Sub效果：。