肯德基优惠券 word 代码.doc_第1页
肯德基优惠券 word 代码.doc_第2页
肯德基优惠券 word 代码.doc_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

肯德基优惠券 word 代码通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。 1、Alt+F8调出宏编辑窗口 2、点创建按钮，创建新宏，内容如下：Sub 优惠券() 优惠券 Macro 宏在 2011-1-12 由 USER 创建Dim j 计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count 文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 145.2 设置高度ActiveDocument.InlineShapes(j).Width = 123.9 设置宽度Next jEnd Sub批量调整word 图片大小把word中所有图片的大小调整为原来的25%?这个要用到VBA的，打开你的文档后，按Alt+F11,在左边Porject下找到ThisDocument，右键插入模块，贴上下面的Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height *15iShape.Width = iShape.Width *15Next iShapeEnd Sub按F5运行一次就可以了。现在比如说你的word里边有一百张图片，而且大小都不一样，为了美观，你需要将所有的图片调整成一样的大小，你该不会一张张的调整吧？其实你完全可以不必这样，看看下边的解决方法：word2007下：选定一张图片后，然后点击“格式相似的文本”，就可以把本文档里的全部图片选定，然后再在图片工具栏里把长宽修改成相同的尺寸。 2003等:一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去.四,更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片Sub Macro()Mywidth=1010为图片宽度（厘米）Myheigth=1010为图片高度（厘米）For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * Myhei
人人文库> 全部分类> 应用文书 > 技术指导

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论