bring的过去式：邮件合并-改变相片大小公式

2020年11月19日发(作者：温建平)
1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，
输 入一个宏名，宏名自己起，能记住就行！注意：宏名不能设置为和特有关键字一
样：如：set 等

2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To 'InlineShapes类型图片
Shapes(n).Height = 120 '设置图片高度为 120px
Shapes(n).Width = 90 '设置图片宽度 90px
Next n

For n = 1 To 'Shapes类型图片
(n).Height = 120 '设置图片高度为 120px
(n).Width = 90 '设置图片宽度 90px
Next n
End Sub