求个批量更改多个WORD文档里的图片大小的代码
发布网友
发布时间：2022-03-18 09:42
我来回答
共1个回答
热心网友
时间：2022-03-18 11:11
Sub 批量处理图片大小()
Myheigth = 5
Mywidth = 6
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next
End Sub
