第1个回答 2020-01-27
按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这里的数字你自己改大小】本回答被提问者采纳