



下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、批量调整WOR图片大小教程今天编辑一份 WOR文档,里面有很多图片,需要将里面的图片调整为固定大小,一般操作 方法是右键点击图片,然后再点击大小按钮-J3站站曰JI 1覽5猶入顿洋蚀.文字子察葩H打窃吸置圏用式弹出大小菜单,修改高度和宽度数值即可。但是文档里面图片太多,这样一张一张的修改,会让人崩溃。 下面介绍批量调整图片大小的方法。打开WOR文档后,按Alt+F8进入宏的界面,如下图所示,宏名(N):扃的位冒3 |所有的活动模檢和立档2说期Q):输入一个宏的名字,这里宏名为调整图片大小,单击“创建”进入宏编辑器,A; Svrval _ Jeiriacros G代码)Snh调整圄片大少(凋整閔
2、片大小On Error Rsuni Nxt J 霧昭错淇Far it = 1 To ActivtD*cumt. ItJiniShir-es. Count InlinfeShap4s 英型E片 ActiveDunieMr IidintShapss He i ght = 400 片苍度肯 QUpxActivfrDfrcuritntWidth = 300 设置團片宽滾 30咗比ifeict nTcnr Ji - 1 Tq Acti veDpcuni! Sh电pg吕Sb呷陆 姿型閨片 ActivDocLFiiutr Shapas Ih). JIight = 400 J iSHE片高度为电COjHtAc
3、tie-Docuieat- Shapes (p). idth = 300,谡置團片宽.亶 3J0y3Nest nEn J. SuL进行宏编辑界面以后,将里面的代码全部删掉,然后复制如下代码并保存Sub调整图片大小()调整图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocume nt.ln li neSh apes.Cou nt I nli neShapes类型图片ActiveDocume nt.ln li neShapes( n).Height = 400 设置图片高度为 400pxActiveDocume nt.l nl
4、i neShapes( n).Width = 300 设置图片宽度 300pxNext nFor n = 1 To ActiveDocume nt.Shapes.Cou nt Shapes类型图片ActiveDocume nt.Shapes( n).Height = 400 设置图片高度为 400pxActiveDocume nt.Shapes( n).Width = 300 设置图片宽度 300pxNext nEnd Sub宏保存以后,将宏编辑界面关闭。返回到WOR文档,再次按Alt+F8进入宏的界面,如下图所示宏志召(N):憲的位畳通;|所有的活动模檢和立档3说期Q):取消|这次点击选中调
5、整图片大小的宏,然后点击运行,就开始自动调整图片大小了 如果文档里面图片较多,执行的时间会长一些。另外宏代码里面的高度和宽度 数值可以自己按需要进行修改。另外再送一个批量按比例缩放图片的宏,制作方法和上面的一样。Sub 图片按比例缩放 () 图片按比例缩放Dim n 图片个数Dim picwidthDim picheightOn Error Resume Next 忽略错误类型图片设置高度为 1.1 倍设置宽度为 1.1 倍For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes picheight = ActiveDocument
6、.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 Next n类型图片设置高度为 1.1 倍设置宽度为 1.1 倍For n = 1 To ActiveDocument.Shapes.Count Shapes picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 审计资格库管理办法
- 备选律师库管理办法
- 新公开遴选管理办法
- 北仑区拆迁管理办法
- 改革积分值管理办法
- 教室开锁门管理办法
- 洁净区洁具管理办法
- 村级路养护管理办法
- 场地管理办法及细则
- 双减下手机管理办法
- 2025年广东省中考英语试题卷(含答案解析)
- 2024年个人信用报告(个人简版)样本(带水印-可编辑)
- 2023年雷州市人民医院高层次卫技人才招聘考试历年高频考点试题含答案解析
- 北京市有限空间作业培训课件
- 《湖南省医疗保险“双通道”管理药品使用申请表》
- GB/T 7324-2010通用锂基润滑脂
- GB/T 28954-2012汽车发动机旋装式机油滤清器连接尺寸
- 海利普变频器C系列中文说明书
- 苏教版五年级数学下册解方程五种类型50题
- 临床生物化学检验技术:第7章 糖代谢紊乱的生物化学检验
- 基于核心竞争力的战略管理研究课程
评论
0/150
提交评论