Alt + F11 -----> Miscrosoft Visual Bsic ------->Miscrosoft word对象---->插入模块
粘贴下面代码 调整自己大小
Sub Macro()
Mywidth = 4.13Myheigth = 5.48
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 35 * Myheigth
iShape.Width = 70 * Mywidth
Next iShape
End Sub
F5执行代码,查看结果