- 按alt+F11(打开宏窗口快捷键)
- 选择project右键插入模块
- 粘贴以下代码
Sub Macro()
Mywidth = 7
Myheigth = 7
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
再按F5(运行快捷键)。
【Mywidth = 7 Myheigth = 7 为设置后的图片大小】