你好你知道 wps怎么批量更改图片大小么

[你知道你的长处是什么吗]我是如何寻找到自己的长处的，这个过程我用了七年。自从我开始写关于职场上的一些心得分享，就收到了很多人写来的邮件，和我倾诉工作里遇到的困难，其实我哪里有什么经验，比起同龄...+阅读

你好你知道 wps怎么批量更改图片大小么

首先为WPS个人版安装VBA，然后按下面的步骤操作：所有图片修改成固定的并且相同的长和宽！

1、打开WPS，直接按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 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub

3、返回WPS，直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！

麻烦采纳，谢谢！

wps批量修改照片大小要说的细点

word批量修改图片大小——固定长宽篇这部分要说的是把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 '设置图片高度为 400pxActiveDocument.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 Sub

3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：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虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，自动批量处理Word中图片，主要完成的工作是：重置所有图片，对所有图片做裁剪。代码很简单，但值得记录，以后可以参考。For Each iShape In ActiveDocument.InlineShapes '1cm = 28.35 pt Dim pic If iShape.Type = wdInlineShapePicture Then iShape.Reset iShape.PictureFormat.CropTop = 1.5 * 28.345 iShape.PictureFormat.CropBottom = 1.5 * 28.345 iShape.PictureFormat.CropLeft = 1.2 * 28.345 iShape.PictureFormat.CropRight = 1.2 * 28.345 End If Next iShape End Sub

如何快速批量修改图片尺寸并保持原大小

ACDSEE就有批处理照片的功能，步骤也不太复杂，一用就会。

你可以把要处理的照片放在一个单独的文件夹里，即：这个文件夹里的全部照片全是要处理的。

选中其中任一幅照片，右击选择用“ACDSee”打开。在其的看图模式下，单击“工具”按钮，在下拉菜单里，选中“ACDSee相片管理器”。这样这个文件夹里的全部照片会在相片管理器里出现。

单击“编辑”，在其下拉菜单中选中“全部选择”；注意，此时中间框内的照片会全部涂色。在全部涂色下，单击“工具”按钮，在其下拉菜单中选择“调整图像大小，之后会打开”批量调整图像大小“活页卡，在这里可以设置批量的大小。

注意：设置的方法有“原图的百分比”和“以像素为单位的大小”两种，这里面如果要说明，要费大量篇幅，你自己摸索吧。

在“选项”按钮里，可以对一些设置进行设定，可以选择：

删除/替换原始文件（这个设定是要将批量调整后的图片放在原始位置，并自动替换原来的文件，在用这一设定前，你的原始照片最好备份，防止调整出来的照片不理想时，无法还原。。。

下面的一个比较讨厌，会将调整后的照片放在原始照片的文件夹里，不会替换原文件，但调整后生成的文件会自动重命名，命名的方法是：原文件名+_调整大小。

也可以选择存放在另的文件夹，方法不难你自动找吧。