如何批量调整word中插入的图片大小？

想把这些图片大小调整成一样的。

有关回应 · 2021-5-27 23:59:10

使用宏，alt+F8进入宏查看界面，点击创建，输入以下代码，设置你要的图片高、宽，单位：厘米。f5或保存后退出宏编辑界面。
然后alt+F8进入宏查看界面，点击运行即可。
注意：全文档的图片都会被统一修改大小。请谨慎操作或备份后操作！！！！！

Sub 批量设置图片大小()'' Macro 宏''Myheigth = 12Mywidth = 8On Error Resume Next '忽略错误For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * Myheigth '设置图片高度为任意cmiShape.Width = 28.345 * Mywidth '设置图片宽度NextFor Each Shape In ActiveDocument.ShapesShape.Height = 28.345 * Myheigth '设置图片高度为任意cmShape.Width = 28.345 * Mywidth '设置图片宽度NextEnd Sub

复制代码

有关回应 · 2021-5-27 23:59:11

排版文档的时候也正好遇到了相同的问题，整理了几个方法

本教程使用版本[h1]情况1：图片已经插入[/h1]方法1：伪 · 图片格式刷，使用【重做】功能
第一步：修改格式

第二步：选中其他图片-【ctrl Y】，或者点左上角的【重复】，然后重复点其他的图...

结束...
方法2（推荐）：用宏代码
第一步：【ATL + 8】调出宏

第二步：输入【宏名】-【创建】

第三步：复制所想要的代码块
代码1，功能：按照固定大小缩放，不锁定纵横比

Sub 批量设置图片格式()' 批量设置图片格式宏'定义变量Dim picwidthDim picheightOn Error Resume Next '忽略错误'按照固定大小缩放picheight = 10 '单位厘米，可修改picwidth = 2.5 '单位厘米，可修改''类型1：嵌入式图形 InlineShapes类型图片For Each Shape In ActiveDocument.InlineShapes'msoFalse是不锁定纵横比'Shape.LockAspectRatio = msoFalse'按照固定大小缩放'Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）'Shape.Width = picwidth * 28.35 '设置图片宽度8cmNext''类型2：非嵌入式图形，Shapes类型图片For Each Shape In ActiveDocument.Shapes'msoFalse是不锁定纵横比Shape.LockAspectRatio = msoFalse'按照固定大小缩放Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）Shape.Width = picwidth * 28.35 '设置图片宽度8cmNextEnd Sub

复制代码

代码2，功能：按照高（宽）设置尺寸，锁定纵横比

Sub 批量设置图片格式()'' 批量设置图片格式宏'''定义变量Dim picwidthDim picheightOn Error Resume Next '忽略错误'按照固定大小缩放，保持比例picheight = 10 '单位厘米，可修改picwidth = 2.5 '单位厘米，可修改''类型1：嵌入式图形 InlineShapes类型图片For Each Shape In ActiveDocument.InlineShapes'按照固定大小缩放, 两行删一行即可Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）Shape.Width = picwidth * 28.35 '设置图片宽度8cmNext''类型2：非嵌入式图形，Shapes类型图片For Each Shape In ActiveDocument.Shapes'按照固定大小缩放, 两行删一行即可Shape.Height = picheight * 28.35 '设置图片高度为 10cm （1cm等于28.35px）Shape.Width = picwidth * 28.35 '设置图片宽度8cmNextEnd Sub

复制代码

代码3，功能：按照原尺寸进行比例缩放，锁定纵横比

Sub 批量设置图片格式()'' 批量设置图片格式宏'''定义变量Dim ratioOn Error Resume Next '忽略错误'按照比例缩放ratio = 2 '缩放比例，可修改''类型1：嵌入式图形 InlineShapes类型图片For Each Shape In ActiveDocument.InlineShapes'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。Shape.LockAspectRatio = msoTrue'按照比例缩放，下面两行，二选一，只留一行Shape.Height = shape.Height * ratio '按高Shape.Width = shape.Width * ratio '按宽Next''类型2：非嵌入式图形，Shapes类型图片For Each Shape In ActiveDocument.Shapes'msoFalse是不锁定纵横比，msoTrue是锁定（默认）。Shape.LockAspectRatio = msoTrue'按照比例缩放，下面两行，二选一，只留一行Shape.Height = shape.Height * ratioShape.Width = shape.Width * ratioNextEnd Sub

复制代码

代码4，功能：嵌入式图片改为非嵌入式
然后接情况2的第四步。

Sub 批量设置图片格式()'' 批量设置图片格式宏''On Error Resume Next '忽略错误''类型1：嵌入式图形 InlineShapes类型图片For Each Shape In ActiveDocument.InlineShapes'可选，设置图片居中'Shape.Range.Select'Selection.ClearFormatting '图片行距=1，如果Word中图片设置了行距不是1，比如固定值30磅，则无论图片设置什么格式，嵌入式会造成只显示一部分图片。'Selection.Range.Paragraphs.Alignment = wdAlignParagraphCenter '图片居中, wdAlignParagraphLeft是左对齐'嵌入式图片改为非嵌入式Set Shape = Shape.ConvertToShapeShape.WrapFormat.Type = 0 '图片版式：0=四周型，1=紧密型，3=衬于文字下方，4=浮于文字上方,Default 0Shape.WrapFormat.AllowOverlap = False '不允许重叠NextEnd Sub

复制代码

第四步：【Ctrl + s】保存 - 【F5】执行

结束
方法3：使用在线图片工具，批量裁剪后插入
批量在线修改图片尺寸大小工具-度度网
免注册，免费下载，可以批量剪裁图片的尺寸，感觉还不错...
emm值得注意的是，毕竟是在线的，十分重要的图片们还是用word本地修改吧，安全性好

[h1]情况2：图片还未插入，即插入图片之前，使用Word[/h1]对于环绕式图片的批量处理，首先需要选中文档中的某个图片，此时会自动激活图片工具栏，然后请右击选择“自定义”，将“选中多个对象”这个命令添加到图片工具栏上。
接下来，就可以单击此按钮，此时会弹出所示的对话框，可以看到这里默认选中的当然还是刚才所选择的图片，现在只需要在这里单击“全选”按钮即可将属当前文档中的所有图片全部选中。
如下详细步骤。
第一步：点【文件】-【选项】-【高级】-往下翻 -【将图片插入/粘贴为】-【四周型】

第二步：调出选择多个对象
【自定义功能区】-【不在功能区中的命令】-【选择多个对象】-【布局】（其他的也行）-【新建组】-【添加】-【确定】

第三步：粘贴图片
可以发现图片已经都是四周型了

第四步：另存为doc格式，因为docx格式的不能用选择多个对象

第五步：设置大小，【格式】-【大小】

第六步（可选）：对齐，取消重叠
【格式】-【其他布局选项】

如下辣鸡效果图，可以粘出来到docx文件，可以按照第一步修改回去嵌入式...

完成

有关回应 · 2021-5-27 23:59:12

谢邀，对不起死了这么久没回答这问题....事情太多..
1.说到调整大小 @大雷，我做ppt的时候一般是框一堆自己插入的形状在格式最右边那调整，刚试了下图片，好像也可以这么来。
2.然后我看了下word2013.好像也有这么个东西

就是最右边，大小那个。不过好像是锁定比例的...
3.不过你点大小右下角那个朝向右下角的小箭头好像就可以设定了

-----------------------------------------------------
然后我看了下其他回答好像还有个选中问题 @吕海
你可以打开 开始-编辑-选择-选择窗格，然后你会发现。。

只会显示图片的好像，然后你在选择窗格那把这群东西框一下（或者左键点起始那张加shift再左键点结束那张），点下上面图片工具：格式按照之前操作就可以了。
-------------------------------------------------------------------------------------------------
=。=我只是一枚PPT工匠，不太懂比较高端的办法，希望对答主有帮助^_^
另外感谢QQ截图能直接粘贴过来...

有关回应 · 2021-5-27 23:59:13

楼上讲的宏对于一般人来说有点困难（你能想象你教你公司的领导或者家里的爸妈用宏？）
所以补充一下楼上那个F4键的回答。
首先强调一点，如果是用鼠标拉图片调整，然后再去按F4，无法实现F4的功能，我是这么理解的，即F4重复的是你的点按操作或键盘操作，而无法记忆你的鼠标拖拽操作。
具体操作如下：
1. 如图是四张不同大小的图片：

2. 以第一张图片为例，先用鼠标将其调整到我们需要的大小：

3. 点击【格式】选项卡，然后查看尺寸（我这里需要四张图片是等高，所以我看的是高度）：

4. 点击任意一张你需要设置的图片图片，然后设置大小为刚才你看到的高度值（或宽度值），然后按回车；
5. 单击其它还没设置大小的图片后，按F4，一张图片一张图片的按；
试试看视频吧：

https://www.zhihu.com/video/1134972356127748096PS：还有，此功能好像wps没法用，即使是wps2019……

有关回应 · 2021-5-27 23:59:14

调整完一个后，选中其他的按f4，不用谢我，我叫小学生

如何批量调整word中插入的图片大小？

5 个回复

浏览过的版块