最近由于又开始了做手帐的小习惯，不过这次并不是为了自己留下记录（因为已经有了这个个人博客），而是送给某人的小礼物。在这个过程中，我需要完成一个操作，我希望将很多张图像（大致40张）放进word文档中，之后再统一的调整其大小以适应我的小手账本。那么其实对于很多人，可能觉得40张图像还不够多，可能也就手动进行了。但是其实我在很早就阐述过相似的观点:不要做重复劳动的奴隶。

对于这个具体的事件，我们是可以像之前的的操作一样借助word的宏+VB语言进行实现的。这样做的好处在于，你不仅仅可以轻松的完成繁重的机械的操作，并且得到的结果是相当精确的。甚至连事后的打印出来的裁剪工作都可以简单很多。

还是像之前一样，将代码放在下面吧：

Sub 批量设置图片大小()
'
' Macro 宏
'
'
Myheigth = 12
Mywidth = 8
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next
End Sub