欢迎来到天天文库
浏览记录
ID:38232542
大小:25.50 KB
页数:3页
时间:2019-05-28
《肯德基优惠券 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
此文档下载收益归作者所有