按alt+F11。然后在project右键插入模块,然后粘贴 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这里的数字你自己改大小】