WORD图片的批量导入批量修改word图片大小和压缩图片方法
图片插入Word或Wps后高度设置和压缩的方法
图片插入Word后高度设置和压缩的方法一、Microsoft Office 2010
（一）图片高度设置
1.复制图片点击Word上图片要插入的位置粘贴图片
2.左键点击图片。
3.点击图片工具高度输入8（不要直接拉伸图片，拉伸后的图片会变形）。
4.高度输入8后需要按键盘上的回车键“enter”进行确认，确认后高度就设置完成了，不需要再拉伸。
（二）图片压缩
1.点评材料编辑完成后选择Word中任一张图片。
2.左键点击图片。
3.点击图片工具点击“压缩图片”（点击后会跳出小窗口）
4. 选择“文档中的所有图片”点“确定”按钮
5.点“应用”按钮，鼠标箭头圈圈转完就压缩完成了。
6.最后点保存
二、WPS Office 2016
（一）图片高度设置
1.复制图片点击wps上图片要插入的位置粘贴图片
2.左键点击图片（会自动跳到图片工具）。
3.高度输入8（不要直接拉伸图片，拉伸后的图片会变形）。
4.回车键“enter”进行确认（确认后高度就设置完成了，不需要再拉伸）。
（二）图片压缩
1.点评材料编辑完成后选择Word中任一张图片。
2.左键点击图片（会自动跳到图片工具）。
3.点击“压缩图片”（点击后会跳出小窗口）选择“文档中的所有图片”点“确定”按钮
4.点确认后压缩图片就完成了，最后保存一下就行。
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进行批量插入和调整可以提高工作效率。
本文将介绍如何使用Word进行批量图片插入和调整的方法和技巧。
一、批量图片插入在Word中插入一张图片是非常简单的，但是如果需要插入多张图片，手动一个一个插入将会非常耗时。
Word提供了批量插入图片的功能，可以一次性插入多张图片。
首先，将需要插入的图片保存在同一个文件夹下，保持图片的命名规则清晰明了。
然后，在Word文档中找到需要插入图片的位置，点击“插入”选项卡中的“图片”按钮。
在弹出的文件选择框中，按住“Ctrl”键，同时点击需要插入的多张图片，然后点击“插入”按钮。
Word会自动将选中的多张图片按顺序插入到文档中，每张图片占据一页。
通过这种方式，可以快速地批量插入大量图片，提高工作效率。
二、批量图片调整插入图片后，有时候需要对图片进行一些调整，以适应文档的排版要求。
Word提供了一些简单的图片调整功能，可以帮助我们快速完成这些任务。
1. 调整图片大小选中需要调整大小的图片，点击图片上方的“图片工具格式”选项卡。
在“大小”组中，可以手动输入图片的宽度和高度，也可以通过拖动调整图片的大小。
此外，还可以点击“缩放”按钮，按比例缩放图片的大小。
2. 裁剪图片有时候，图片中的一部分内容可能与文档排版不符合，需要进行裁剪。
选中需要裁剪的图片，点击“图片工具格式”选项卡中的“裁剪”按钮。
然后，拖动图片边框上的裁剪框，调整裁剪范围。
点击裁剪框外的空白区域，完成裁剪操作。
3. 图片边框和效果Word还提供了一些边框和效果供我们对图片进行美化。
选中图片，点击“图片工具格式”选项卡中的“图片边框”按钮，可以选择不同的边框样式和颜色。
在“图片样式”组中，还可以选择不同的效果，如阴影、反射等。
4. 图片位置和对齐在Word中，可以通过拖动图片来调整其位置。
Word文档中批量压缩图片的方法
Word文档中批量压缩图片的方法
word中将图片批量压缩图片的方法
第一步：查看文件大小
第二步：正常打开文件，如果是DOCX后缀名结尾的文档，首先另存为DOC （因为DOCX的图片压缩不能百分之百实现）。
另存后双击文档内的任意一张图片
双击左上角“压缩图片”
弹的对画框中选择如下设置。
然后点击确定后，再弹出的对话框中点击应用。
此时文档会进行压缩，大约几秒钟后，点击保存即可。此时你就会发现文档变小了
阿贵
二〇一五年一月七日
如何在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 中图片大小一、无条件修改图片大小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），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实现WORD图片的批量导入、批量修改图片大小和批量压缩图片方法
实现在WORD图片的批量导入：如果图片都存在同一个文件夹中，那么我们可以按住shift键批量插入图片~
一、批量修改word图片大小
1、菜单——“工具”——“宏”——“宏”，也可以用快捷键ALT+F8调出，
2、在“宏”窗口中，“宏名”改成“批量调整图片大小”
再点“编辑”
复制、粘贴以下代码：
Sub 批量调整图片大小()
'
' 调整图片大小Macro
' 宏在2011-5-22 由User 创建
'
Dim iShape As InlineShape, WidthNum As Long For Each iShape In ActiveDocument.InlineShapes With iShape
WidthNum = .Width
.Width = 13 * 28.35
.Height = (13 * 28.35 / WidthNum) * .Height
End With
Next
' 注：1厘米＝28.35磅值
' 以上为同比例缩放的近似算法
End Sub
再点工具栏里的“保存”，保存修改。
3、选择宏名——运行，就可以自动批量修改图片大小。
二、批量压缩word图片大小
1、选中某一张图片——右键“设置图片格式”——“图片”——“压缩”——
选择上面的应用于“文档中的所有图片”。