word文档批量修改图片的方法

合集下载

Word2013文档中如何批量调整图片大小

Word2013文档中如何批量调整图片大小
在我们用Word2013 编辑器文档的时候，经常会遇到打印一些图片的情况，但是手工插入后图片后，打印出来有些乱，很不美观，特别是有多个图片的情况时。

以下是店铺为您带来的关于Word2013批量调整图片大小，希望对您有所帮助。

Word2013批量调整图片大小
首先打开Word文档，点击插入图片，将需要使用的图片添加到Word中。

选择任意一张图片，之后点击图片工具中的批量调整按钮，选择批量改尺寸。

在图片批量处理界面，我们可以对图片的尺寸进行等比缩放，或者指定图片的尺寸。

图片的尺寸修改完毕后，如果还需要调整图片的比例，可以在裁剪页面中对图片进行固定大小或固定比例裁剪。

完成所有图片的调整后，点击下方的批量替换原图即可。

以上就是在Word中批量调整图片大小和比例的方法，统一调整完毕后即可一键替换原图，非常方便。

将Word文档中所有图片统一修改大小，无论多少张都可以一键搞定！

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

看看动图演⽰。

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

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

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

Word中添加这个按钮，就能一次性修改1000张图片的尺寸

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

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

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

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

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

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

接着就是按F4了。

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

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

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

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

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

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

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

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

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

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

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

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

如何在word批量修改图片大小的高级技巧

在使用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里如何批量处理图片的大小_不知道你就out啦(有公式时会把公式也搞坏了)

[手把手]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 里图片的大小及版式的技巧

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

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

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

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

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

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

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

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

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

Word怎样批量修改图片大小、位置？有比这5个方法更全的么？

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

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

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

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

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

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

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

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

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

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

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

如何将Word里插入的所有图片批量调整统一大小？

【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中怎样同时编辑多个图片

word中怎样同时编辑多个图片在编辑word时，经常遇到文件要用到许多图片，且图片尺寸、版式、颜色与线条等格式是一样的，如果一个一个的编辑非常麻烦，而要编制一个宏来实现软件自动套用格式，许多人又不会，店铺找到一个比较简单的方法，与大家分享下。

Word同时编辑多个图片的方法步骤一：在word中，开启“选中多个对象”功能按钮;目的是，在所有图片粘贴到word后，可以直接全部选中图片，而不会选到其它的文本或线框等。

开启方法是，在word菜单栏上右击，把“绘图”工具栏前面的钩选中，打开“绘图”工具栏;再在“绘图”工具栏最右边的箭头，即“工具栏选项”处点一下，出现“删除或添加按钮”，光标移动到上面时，分别出现“绘图”、“重新设置工具栏”;在“重新设置工具栏”上面找到“选中多个对象”按钮，将它前面的钩选中，这个按钮就会出现在绘图工具栏上。

步骤二：将所有要编辑为统一格式的图片全部粘贴到新建的PowerPoint中(建议，在这个操作之前，把PowerPoint空白页中的默认文本框先删除掉，要不会影响后面的操作)。

步骤三：在新建的PowerPoint中，使用ctrl+a全部选中图片，右击光标“复制”所有图片。

步骤四：在打开的word中，右击光标“粘贴”所有图片。

此时，会发现，所有图片都在一个word自动添加的文本框中。

步骤五：按住光标左键不放，将所有选中的图片拖出文本框;再将这个word自动添加的文本框删除掉。

此时，会发现，所有图片的版式都变成“浮于文字上方”了。

步骤六：点击“选中多个对象”功能按钮，在出现的对话框中，点“全选”，选中所有图片(如果不是空白word，对话框中可能会有线框、文本框等项目，需去掉这些项目前的钩)，点确定后，就选中了所有图片;在图片上右击光标，点“设置图片格式”，可以按照你的要求统一设置图片的尺寸、版式、颜色与线条等格式了。

之后，就可以把这些图片，做为图片编辑库，逐一复制、剪贴或移动到wrod需要放置的地方去。

Word中相片批处理

后点击“插入”。
此时，Word会自动将文件夹中的所有图片导入到文档中。
从桌面导入
在“插入”选项卡中，选择 “图片”>“来自文件”。
打开Word文档，点击“插入 ”选项卡。
02
01
03
在弹出的“插入图片”对话框中，选择“桌面”，然后
点击“浏览”。
在弹出的“浏览”对话框中，选择要导入的图片文件，
word中相片批处理
目录
• 批量导入图片 • 图片格式调整 • 图片布局设置 • 图片效果设置 • 图片批量处理
01
批量导入图片
从文件夹导入
01
02
03
04
打开Word文档，点击“插入 ”选项卡。
在“插入”选项卡中，选择“ 图片”>“来自文件”。
在弹出的“插入图片”对话框中，选择要导入的文件夹，然
翻转图片
除了旋转，你还可以翻转图片。只需在“旋转”下拉菜单中选择“水平翻转” 或“垂直翻转”即可。
裁剪图片
裁剪形状
在Word中，你可以通过点击图片，然后选择“格式”菜单，再选择“裁剪”选项来裁剪图片。在弹出的对话框中，你可以选择预设的形状（如圆形、三角形等）或自定义裁剪区域。
裁剪区域
如果你想自定义裁剪区域，只需在对话框中拖动裁剪框的四边和四个角即可。完成后，点击“完成裁剪”按钮即可。
04
图片效果设置
颜色效果
01
02
03
颜色平衡
通过调整亮度和对比度，使图片颜色更加自然或达到特定的视觉效果。
饱和度
控制图片颜色的鲜艳程度，增强或降低图片的色彩强度。
色调
调整图片的整体色调，如将图片偏向暖色或冷色。

如何批量修改Word中图片大小和缩放比例的方法介绍

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

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

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

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

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

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

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

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

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

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

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

Word中进行批量修改图片的大小和缩放比例的操作方法

Word中进行批量修改图片的大小和缩放比例的操作方法最近遇到一个问题：需要将一篇word文档中的所有图片全部缩小比例。

一张张改太麻烦了。

今天，店铺就教大家在Word中进行批量修改图片的大小和缩放比例的操作方法。

Word中进行批量修改图片的大小和缩放比例的操作步骤这部分要说的是把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 '设置图片宽度 300px NextnEnd 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.Al ignment= wdAlignParagraphCenter‘左对齐：wdAlignParagraphLeft注意：这里的Shapes(InlineShapes)不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

word中批量修改图片大小的两个方法.doc

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效果：。