今天准备把KFC的优惠券打印下来,可是网页生成的打印效果不好,浪费纸
自己排版的话图片又太多,一张张设置大小太麻烦,-word 里有批量修改图片大小办法么?
百度了一下,有结果了:
按alt+F11。然后在project右键插入模块,然后粘贴
Sub Macro()
Mywidth = 4.13
Myheigth = 5.69
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
再按F5,就行了。
【Mywidth = 4.13
Myheigth = 5.69这里的数字你自己改大小】
宏的安全性要设置为 “中”,运行时“启用宏”
查看原文:http://mathcai.com/?p=3501
赞赏
微信赞赏支付宝赞赏
「赏不在多,觉得文章有用,就赞赏下吧!」