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

17sheng

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

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

试试，看看好不好用

dhwl9899

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

tanglikecuan

感谢分享。

genon

感谢分享！！！！~

wodetiannaxiao

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

wantu

感谢分享

TBiuXX

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

camyan

感谢分享