wps中批量编辑大小 | wpsWord中批量修改大小

1.wps Word中如何批量修改图片大小

WPS Word是文字处理器，主要功能是文字排版和表格制作。有上千张图片要批量修改图片大小，建议使用Adobe Photoshop专业的图像处理软件。

第一步：先将所有图片放在一个文件夹中，再建立一个空的文件夹存放处理好的图片。

第二步：在Adobe Photoshop中新建“动作”，录制第一张图片处理的全过程，包含从哪个文件夹打开，图像大小调整，保存到哪个文件夹等。

第三步：在Adobe Photoshop中点击“文件”/“自动”/“批处理”，选择要执行的动作和源文件夹之后确定，批处理就开始执行了，你可以喝完茶再来看，图像已经处理好了。

请采纳！

2.WPS文本里批量插入图片（嵌入式）如何批量修改大小

步骤一：点击插入-图片。找到图片所在文件夹

步骤阅读

步骤二：按住Ctrl，左键单击，注意文件名排列和表格里名字一致，点击打开

步骤三：按住鼠标左键，所有图片拖动到第一行内容和最后一行中间，点击高度，宽度设置数值，批量调整大小。

步骤四：左键单击，取消全选。最底下一张拖到第一行，最上面一张拖到最后一行

步骤五：Ctrl+f，找到定位，点击对象。（为了让照片是全选的）

步骤六：找到对齐-左对齐，再次对齐-纵向分布。

补充说明：函数导出步骤二所需文件名。

1.左键单击C2，输入函数：=C1&””””&A2&”.webp”&”””””&” ”，按enter键（回车键）。

2.把箭头放在C2右下角，变成实心箭头，往下复制。得到最后一行，右键单击复制，得到文字，点击插入-图片，把文字粘贴进去，重复步骤二。

备注：=表示函数开始，C1表示需要套用前一列的东西，& 文本连接符号（hift+7），”” 双引号内输入文字数字是需要添加的内容，””内再输入两个英文状态的双引号表示要添加一个双引号，””内输入一个空格是要添加一个空格，版本不同，函数可以适当修正。

点击任意一张图片，Ctrl+A，全选图片，鼠标拖动调整即可

可以用VBA做，能把所有的图片都改为一样大小

3.wps文档中如何批量修改修改图片大小

或者使用WORD来完成成，用宏：Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(5) '宽5CM iSha.Height = CentimetersToPoints(5) '高5CM End If NextEnd Sub。

4.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 '设置图片高度为 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 Sub3、返回word，工具-宏-宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间）word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放！具体操作同上，只是代码部分稍做修改，代码如下：Sub setpicsize（) '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n End 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。