1 2 3 4 5 6 7 8 |
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中新建工程,使用上面代码,修改宽和高之后执行即可
1 2 3 4 5 6 7 8 |
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中新建工程,使用上面代码,修改宽和高之后执行即可