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

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

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注