今天准备把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

赞赏

微信赞赏支付宝赞赏

「赏不在多,觉得文章有用,就赞赏下吧!」

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据