如何在word一页中快速插入多张图片并设置同样大小
2017-05-21 本文已影响0人
冬笋土豆西红柿
- 按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 为设置后的图片大小】
