网站 › 『编程语言讨论求助区』 › 自用的word宏，根据网络资料修改。（批量调节图片大小）

17sheng 发表于 2022-11-14 10:50

自用的word宏，根据网络资料修改。（批量调节图片大小）

东西是根据网上查到批量修改图片大小百分比改的修改宽或者高的值（偶尔比例不锁定，目前使用问题不大），麻烦各位大佬提提宝贵意见。

Sub 宽大小单值()
'
' 宽大小单值 宏
'
'
Dim n '图片个数
Dim p
p = InputBox("输入宽度：厘米")
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To Selection.InlineShapes.Count 'InlineShapes类型图片
ishape.LockAspectRatio = msoTrue
picheight = Selection.InlineShapes(n).Height
picwidth = Selection.InlineShapes(n).Width
Selection.InlineShapes(n).Width = p * 28.345   '设置宽度为0.5倍
Next n

End Sub




Sub 高大小单值()
'
' 大小单值 宏
'
'
Dim n '图片个数
Dim p
p = InputBox("输入宽度：厘米")
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To Selection.InlineShapes.Count 'InlineShapes类型图片
ishape.LockAspectRatio = msoTrue
picheight = Selection.InlineShapes(n).Height
picwidth = Selection.InlineShapes(n).Width
Selection.InlineShapes(n).Height = p * 28.345
Next n

End Sub

meteor3520 发表于 2022-11-14 11:06

试试，看看好不好用

dhwl9899 发表于 2022-11-14 11:13

谢谢分享，完后试试看效果如何。

tanglikecuan 发表于 2022-11-14 11:28

感谢分享。

genon 发表于 2022-11-14 11:38

感谢分享！！！！~

wodetiannaxiao 发表于 2022-11-14 11:46

希望有用，经常用到批量图片排版

wantu 发表于 2022-11-14 11:49

感谢分享

dongse 发表于 2022-11-14 12:00

TBiuXX 发表于 2022-11-14 12:04

图片除了inlineshapes还有shaperange，方法大同小异

camyan 发表于 2022-11-14 12:47

感谢分享

查看完整版本: 自用的word宏，根据网络资料修改。（批量调节图片大小）