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

最近频繁使用WPS整理图片，在使用过程中发现了以下问题:

1。多张图片“挤”在一页上，对于图片多的文档来说相当不方便。

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

3。横图和竖图大小不一样，不方便修改图片大小。

通过查找、学习、摸索，以下方法可以很好地解决上述问题，大大提高排版效率。方法如下:

1。打开WPS，“文件”、“选项”、“编辑”，将图片插入模式改为“嵌入式”，然后点击“确定”。修改图片插入类型后，可以防止多张图片“挤”在一页上。

2。在主页面中点击“插入”和“本地图片”，然后选择要插入的图片。

3。插入后的效果如下:横版和竖版图片较多，尺寸需要调整。

4。插入图片后，不要忘记保存。

5。点击打开“开发工具”“VB编辑器”，点击“插入”“模块”。

6。在打开的模块窗口中，复制下面的VBA代码。代码的意思是判断图片是横的还是竖的。如果是水平的，图片宽度设置为120mm，否则图片是垂直的，垂直图片的宽度尺寸设置为60mm，后面的2.835是像素和毫米之间的转换单位。图片的大小可以根据编辑的需要进行调整。

Sub批量调整图像尺寸()

Dim i

出错时继续下一步

For i = 1 To ActiveDocument。InlineShapes.Count

If ActiveDocument。内嵌形状(I)。宽度& gt活动文档。嵌入式形状(I)。如果图片的宽度大于高度，则图片为横向。

activedocument。内嵌形状(I)。宽度= 120 * 2.835 '以毫米为单位设置宽度

Else

activedocument。嵌入式形状(I)。width = 60 * 2.835 '否则图片为纵向，宽度设置为mm 。

End If

下一个

End Sub

7。然后返回WPS文档窗口，点击“开发工具”和“宏”，在打开的宏选择框中选择宏的名称，点击“运行”。

8。运行后，效果如下图。竖图宽度约60mm，横图宽度约120mm。

9。编辑调整过大小的图片相当方便。

#WPS#、批次#、图片#、VBA#、