WPS文档中批量修改图片尺寸

近期使用WPS整理图片比较频繁,在使用过程中发现出现以下问题:

1.多张图片"挤"在一张页面上,对于图片较多的文档,相当不方便。

2.无法同时选中多张图片,相当不方便批量修改图片尺寸。

3.横版图片与竖版图片的尺寸不同,不方便修改图片尺寸。

通过查找、学习、摸索,采用如下办法可以很好的解决上述问题,极大地提高了排版效率,方法如下:

1.打开WPS,"文件" "选项" "编辑"将图片的插入方式改为"嵌入"型,然后点击"确定"。修改图片的插入类型后,可以防止多张图片"挤"在一张页面上。

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(1)


wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(2)


2.在主页面中点击"插入","本地图片",然后选择需要插入的图片。


wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(3)


wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(4)

3.插入后的效果如下,多张图片有横版的,有竖版的,而且尺寸需要调事。

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(5)

4.插入完图片后,别忘了保存一下。

5.点击打开"开发工具", "VB编辑器",点击"插入""模块"。

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(6)

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(7)

6.在打开的模块窗口,将下列VBA代码复制进去。代码的意思是,先判断图片是横版还是竖版,如果是横版,则设置图片的宽度为120mm,否则图片是竖版,竖版图片的宽度尺寸设置为60mm,后面的2.835为像素与毫米的转换单位,图片的尺寸可以根据编辑的需要进行调整。

Sub 批量调整图片尺寸()

Dim i

On Error Resume Next

For i = 1 To ActiveDocument.InlineShapes.Count

If ActiveDocument.InlineShapes(i).Width > ActiveDocument.InlineShapes(i).Height Then'如果图片的宽度大于高度,则图片为横版,

ActiveDocument.InlineShapes(i).Width = 120 * 2.835 '设置宽度,单位为mm

Else

ActiveDocument.InlineShapes(i).Width = 60 * 2.835 '否则,图片为竖版,设置宽度,单位为mm

End If

Next

End Sub

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(8)

7.然后回到WPS文档窗口,点击"开发工具","宏",在打开的宏选择框内选择刚才的宏名称,点击"运行"。

wps怎么批量调整图片大小(WPS文档中批量修改图片尺寸)(9)

8.运行之后的效果如下图,竖版图片的宽度尺寸大约60mm,横版图片的宽度大约是120mm。

9.调整好尺寸的图片再进行编辑则相当方便。