肯德基优惠券 word 代码

《肯德基优惠券 word 代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、肯德基优惠券word代码 通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏，内容如下： Sub优惠券()''优惠券Macro'宏在2011-1-12由USER创建'Dimj'计数图片个数Forj=1ToActiveDocument.InlineShapes.Count'文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height=145.2'设置高度ActiveDocumen

2、t.InlineShapes(j).Width=123.9'设置宽度NextjEndSub批量调整word图片大小把word中所有图片的大小调整为原来的25%????这个要用到VBA的，打开你的文档后，按Alt+F11,在左边Porject下找到ThisDocument，右键插入模块，贴上下面的SubMacro()ForEachiShapeInActiveDocument.InlineShapesiShape.Height=iShape.Height*15iShape.Width=iShape.Width*15NextiShapeEn

3、dSub按F5运行一次就可以了。现在比如说你的word里边有一百张图片，而且大小都不一样，为了美观，你需要将所有的图片调整成一样的大小，你该不会一张张的调整吧？其实你完全可以不必这样，看看下边的解决方法：word2007下：选定一张图片后，然后点击“格式相似的文本”，就可以把本文档里的全部图片选定，，然后再在图片工具栏里把长宽修改成相同的尺寸。2003等:一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去.四,更改数值,改一下宽度和

4、高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片SubMacro()Mywidth=10'10为图片宽度（厘米）Myheigth=10'10为图片高度（厘米）ForEachiShapeInActiveDocument.InlineShapesiShape.Height=28.345*MyheigthiShape.Width=28.345*MywidthNextiShapeEndSub