[教学]批量处理word文档图片大小

[教学]批量处理word文档图片大小[教学]批量处理word文档图片大小声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解～当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以～ word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽～ 1、打开word，工具,宏,宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行～ 2、宏名起好了，单击“创建”进入Visual Basic 编...

[教学]批量处理word文档图片大小声明:我下面要说的“批量修改word里的图片大小”的方法需要使用到宏，所以~~最好对VB有所了解～当然~~这不是必需的，只要跟着我的图文教程走，不知道什么是宏，不知道什么是VB也可以～ word批量修改图片大小——固定长宽篇这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽～ 1、打开word，工具,宏,宏(或者直接按Alt+F8)进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行～ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 105 '设置图片高度为105px ActiveDocument.InlineShapes(n).Width = 105 '设置图片宽度105px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 105 '设置图片高度为105px ActiveDocument.Shapes(n).Width = 105 '设置图片宽度105px Next n End Sub 3、返回word，工具,宏,宏(或者直接按Alt+F8)，再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了～(图片多时，可能会花一些时间) word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放～具体操作同上，只是代码部分稍做修改，代码如下: Sub setpicsize() '设置图片大小 Dim n '图片个数 Dim picwidth Dim picheight On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍 ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍 Next n End Sub 虽然我的代码不是好代码，但确实能解决我的问题，瞬间就把word文档里所有图片放大了1.1倍，各种公式、坐标轴都比原来清楚多了，可以拿去打印出来了，呼呼～

                    本文档为【[教学]批量处理word文档图片大小】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_682974

暂无简介~

格式：doc

大小：14KB

软件：Word

页数：0

分类：初中语文

上传时间：2018-10-04

浏览量：3

热点搜索

新视野大学英语第三版第二册第七单元sectionB (上海市新版)金属板安装检验批质量验收记录 QS1交流电桥1 镁还原四氯化钛加料方式探讨与实践最经典的市场部SWOT分析矩阵科普版小学英语五年级上册教案全修订稿沈阳工程勘察报价表餐饮服务环节食品安全事故应急预案[1] GB_T 2521-1996 冷轧晶粒取向、无取向磁性钢带(片)：合作学习理论轮滑社团活动策划书 LDO的基本原理与测试 7 电缆挂牌施工标准做法三学前儿童健康教育活动的组织方法新视野大学英语第三版第二册第七单元sectionB (上海市新版)金属板安装检验批质量验收记录 QS1交流电桥1 镁还原四氯化钛加料方式探讨与实践最经典的市场部SWOT分析矩阵科普版小学英语五年级上册教案全修订稿沈阳工程勘察报价表餐饮服务环节食品安全事故应急预案[1] GB_T 2521-1996 冷轧晶粒取向、无取向磁性钢带(片)：合作学习理论轮滑社团活动策划书 LDO的基本原理与测试 7 电缆挂牌施工标准做法三学前儿童健康教育活动的组织方法