怎么批量把word中的图片的大小都缩小

发布网友 发布时间：2022-02-21 11:22

我来回答

共9个回答

热心网友 时间：2022-02-21 12:51

word中的图片的大小都缩小是利用word中的工具：宏功能，对图片进行宽高设置，等比例缩放操作。具体的方法如下：

1.具体操作同上：打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示；

2.输入一个宏名，宏名自己起，能记住就行；

3.宏名起好了，单击“创建”进入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 Sub。

返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）；

4.若还想使所有图片居中对齐，可在循环中加入下面的语句：

ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter‘左对齐：wdAlignParagraphLeft。

注意事项：

1.需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。

2.这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

热心网友 时间：2022-02-21 14:09

1.打开所要调整图片大小的word文档。

2.点击工具—宏—visual basic编辑器。点击试图—代码窗口，打开代码窗口。

3.将代码“Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 100 '设置图片高度100px

ActiveDocument.InlineShapes(n).Width = 100 '设置图片宽度 100px

Next nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 100 '设置图片高度为 100px

ActiveDocument.Shapes(n).Width = 100 '设置图片宽度 100px

Next nEnd Sub”

输入窗口，修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。

4.点击运行—运行子程序，或者按F5运行即可。图片大小就修改完毕。

5.如果说图片是按比例修改，则把第三步的程序改为：

Sub setpicsize() '设置图片大小

Dim n '图片个数

Dim picwidthDim picheightOn Error Resume Next '忽略错误

For n = 1 To ActiveDocument.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倍

Next nFor 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倍

Next nEnd Sub

热心网友 时间：2022-02-21 15:44

付费内容限时免费查看回答您好，您的问题我已经看到了，正在整理答案，打字需要一点时间。请稍等一会儿哦~

您好，目前，word还不能批量调整图片大小。

可以调整一来图片大小，方法如下：

1，打开一个有图片的word文件，点击需要调整大小的图片。

2，点击工具栏，选择图片格式。

3，在大小一栏设置需要的数值，再按确认即可。

4，重复以上动作可以，把所有的图片都设置大小。

热心网友 时间：2022-02-21 17:35

假设缩小为原来的25%：
按Alt+F11——在左边Porject下找到ThisDocument：右键——插入——模块——粘贴下面的代码：

Sub Macro()
For Each iShape InActiveDocument.InlineShapes
iShape.Height =iShape.Height * 0.25
iShape.Width =iShape.Width * 0.25
Next iShape
End Sub

按F5运行。

热心网友 时间：2022-02-21 19:43

打开所要调整图片大小的word文档。
步骤阅读 2点击工具—宏—visual basic编辑器。点击试图—代码窗口，打开代码窗口。
步骤阅读 3将代码“Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.InlineShapes(n).Width = 100 '设置图片宽度 100pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 100 '设置图片高度为 100pxActiveDocument.Shapes(n).Width = 100 '设置图片宽度 100pxNext nEnd Sub”
输入窗口，修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。
步骤阅读 4点击运行—运行子程序，或者按F5运行即可。图片大小就修改完毕。
步骤阅读 5如果说图片是按比例修改，则把第三步的程序改为：
Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.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倍Next nFor 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倍Next nEnd Sub

热心网友 时间：2022-02-21 22:08

压缩时把“仅应用于所选图片”前的对号去掉（2007版，其他版本类似）

热心网友 时间：2022-02-22 00:49

大名鼎鼎的word文档批量处理大师软件有该功能的，推荐！

热心网友 时间：2022-02-22 03:47

你说的大小是尺寸还是像素，如果是像素，压缩图片吧

热心网友 时间：2022-02-22 07:02

全选——右击——设置图片格式——大小