admin管理员组

文章数量:1531284

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

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To 'InlineShapes 类型 图片

Shapes(n).Height = 5.72 * 28.35 '设置图片高度为 5cm

（1cm等于28.35px）

Shapes(n).Width = 7.62 * 28.35 '设置图片宽度 4cm

Next n

End Sub

说明：

1、Alt+F8键，弹出的宏设置框内点击“创建”；

2、将以上文字复制到“Normal-NewMaccros”框内，替代原有文字，红色字5.72

为高度，7.62为宽度，可自行设定；

3、点击上方运行

本文标签： 设置图片框内文字宽度

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