2024年2月22日发(作者：)
wps怎么批量更改图片大小
首先为WPS个人版安装VBA，然后按下面的步骤操作： 所有图片修改成固定的并且相同的长和宽！
1、打开WPS，直接按Alt+F8进入宏的界面，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes类型图片 Shapes(n).Height = 400 '设置图片高度为 400px Shapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1
To 'Shapes类型图片 (n).Height = 400 '设置图片高度为 400px (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 'InlineShapes类型图片
Shapes(n).Height = 400 '设置图片高度为 400px
Shapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To 'Shapes类型图片
(n).Height = 400 '设置图片高度为 400px
(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 'InlineShapes类型图片
picheight = Shapes(n).Height
picwidth = Shapes(n).Width
Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To 'Shapes类型图片
picheight = (n).Height
picwidth = (n).Width
(n).Height = picheight * 1.1 '设置高度为1.1倍
(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub虽然小一的代码不是好代码，但确实能解决小一的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了， 自动批量处理Word中图片，主要完成的工作是：重置所有图片，对所有图片做裁剪。代码很简单，但值得记录，以后可以参考。For Each iShape In Shapes '1cm = 28.35 pt Dim pic If
= wdInlineShapePicture Then p = 1.5 * 28.
345 ttom = 1.5 * 28.345 ft
= 1.2 * 28.345 ght = 1.2 * 28.345 End If Next iShape End Sub
发布评论