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中新建工程，使用上面代码，修改宽和高之后执行即可
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中新建工程，使用上面代码，修改宽和高之后执行即可