DrifterFun

One need not hope in order to undertake, nor succeed in order to persevere.

再论编程影响生活

2019-03-19


最近由于又开始了做手帐的小习惯,不过这次并不是为了自己留下记录(因为已经有了这个个人博客),而是送给某人的小礼物。在这个过程中,我需要完成一个操作,我希望将很多张图像(大致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