Word中用 vb脚本把所有图片设置为统一大小

Sub Macro()
Mywidth = 12.59
Myheigth = 6.87
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.35 * Myheigth
iShape.Width = 28.35 * Mywidth
Next iShape
End Sub

Sub Macro()

Mywidth = 12.59

Myheigth = 6.87

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.35 * Myheigth

iShape.Width = 28.35 * Mywidth

Next iShape

End Sub

在Word的vb中新建工程，使用上面代码，修改宽和高之后执行即可

发表评论 取消回复

发表评论取消回复