word图片编辑宏

方法：按alt+F11。然后在project右键插入模块，然后粘贴Sub Macro()Mywidth = 4.13Myheigth = 5.69For Each iShape In ActiveDo

方法： alt+F11project 按。然后在右键插入模块，然后粘贴 Sub Macro() Mywidth =4.13 Myheigth =5.69 For Each iShape In ActiveDocument.InlineShapes iShape.Height =28.345 *Myheigth iShape.Width =28.345 *Mywidth Next iShape End Sub F5 再按，就行了。 Mywidth =4.13 【 Myheigth =5.69 这里的数字你自己改大小】 4 一页张图：一个宏一个命令 Sub Macro() Mywidth =11.03 Myheigth =4.9 For Each iShape In ActiveDocument.InlineShapes iShape.Height =28.345 *Myheigth iShape.Width =28.345 *Mywidth Next iShape