admin管理员组

文章数量:1537955

2024年5月11日发(作者：)

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 ActiveDo

Shapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To

'Shapes类型图片 (n).Hei

ght = 400 '设置图片高度为 400px (n).Width = 300 '设置

图片宽度 300px Next n End Sub 3、返回WPS，直接按Alt+F8），再次进入宏的界

面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了 ！

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

word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改

成固定的并且相同的长和宽！

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，

输入一个宏名，宏名自己起，能记住就行！2、宏名起好了，单击“创建”进入Visual Ba

sic 编辑器，输入如下代码并保存

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 iShap

p = 1.5 * 28.345 ttom = 1.

5 * 28.345 ft = 1.2 * 28.345 eFormat.

CropRight = 1.2 * 28.345 End If Next iShape End Sub

本文标签： 图片设置图片大小批量代码

版权声明：本文标题：wps怎么批量更改图片大小 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1715363690a448421.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。