如何批量修改Word中图片大小和缩放比例的方法介绍

2016-04-01 18:09 171 1 收藏

只要你有一台电脑或者手机,都能关注图老师为大家精心推荐的如何批量修改Word中图片大小和缩放比例的方法介绍,手机电脑控们准备好了吗?一起看过来吧!

【 tulaoshi.com - word 】

如何批量修改Word中图片大小和缩放比例的方法介绍

最近图老师小编遇到一个问题:需要将一篇word文档中的所有图片全部缩小比例。一张张改太麻烦了。于是从网上搜罗了一下,还真找到了解决办法。需要注意的地方 就是注意厘米与像素的换算关系。一般情况下1厘米=28px 。这个换算关系其实可以用计算器计算出来。计算公式为图片改变之后的像素除以改变之后图片的大小厘米。
固定长宽篇
这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽!
1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!

2、宏名起好了,单击创建进入Visual Basic 编辑器,输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
Forn = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Nextn
Forn = 1 ToActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Nextn
End Sub
Word中批量修改图片大小和缩放比例方法
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击运行按钮,就可以了!(图片多时,可能会花一些时间)
按比例缩放篇
这部分要说的是把word中的所有图片按比例缩放!
具体操作同上,只是代码部分稍做修改,代码如下:
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dimpicwidth
Dimpicheight
On Error Resume Next '忽略错误
For n = 1 ToActiveDocument.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倍
Nextn
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倍
Nextn
End Sub

若还想使所有图片居中对齐,可在循环中加入下面的语句:
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment= wdAlignParagraphCenter

‘左对齐:wdAlignParagraphLeft

注意:这里的Shapes(InlineShapes)不仅仅是指图片,也包含其它的,自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。

        :更多请关注办公软件教程 栏目,图老师电脑办公群:189034526欢迎你的加入

Word2003文档中快速绘制斜线表头

   ①首先是在Word2003中绘制一张表格,打开Word,点击菜单栏表格--插入--表格。

Word2003文档中快速绘制斜线表头 图老师

  ②在插入表格界面中选择tulaoshi.com行列数,例如我选择的是4行5列的表格。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/wjc/)
设置表格行列

  ③表格制作完之后,点击菜单栏--表格--绘制斜线表头。

绘制斜线表头

  ④样式和字体大小可以自由选择,在行标题跟列标题里面写入名称,点击确定就行了。

输入标题
完成

在Word2003中对禁止复制的网页进行常规操作

   ①打开Word2003,单击菜单栏--文件--打开。

在Word2003中对禁止复制的网页进行常规操作 图老师

  ②选择网上邻居,在文件名里面输入网站地址。

网上邻居

  ③OK,Word会自动连接到这个网站上,在页面显示相关内容。

自动连接www.Tulaoshi.com

  ④我们可以对内容进行复制粘贴等一系列常规操作。

进行常规操作

Word2003将文档进行分栏查看

   ①启动Word2003,导入要进行分栏的文档,选中要分栏的段落,单击菜单栏--格式--分栏。

Word2003将文档进行分栏查看 图老师

  ②在预设里面选择栏数,也可以自定义填写。

选择栏数

  ③确定之后,选中的段落即被分栏了。

段落分栏

  ④不仅如此,我们还可以利用上述方法对全文进行分栏。

全文分栏

Word2003中隐含模块编译错误

   ①编辑文档的时候出现下图所示的错误提示。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/wjc/)
Word2003中隐含模块编译错误 图老师

  ②打开Word,单击工具--模板和加载项。

模板和加载项

  ③在模板选项卡中查看共用模板及加载项列表中的模板或加载项。把里面的加载项取消掉,每取消一个都要确定一次。

取消加载项

设置Word2003首行缩进的单位

   ①启动Word2003,单击菜单栏--工具--选项。

设置Word2003首行缩进的单位 图老师

  ②切换到常规标签,在下面的度量单位里面进行单位的选择。

切换到常规标签

  ③如果勾选使用字符单位,则在 设置段落缩进时使用字符作为缩进单位。

勾选使用字符单位

  ④如果不勾选,则在设置段落缩进时使用厘米作为缩进单位,具体的设置依照个人喜爱。

Word2003页眉页脚处自动插入文件名称与路径

   ①首先启动Word2003,单击菜单栏--视图--页眉和页脚。

Word2003页眉页脚处自动插入文件名称与路径 图老师

  ②将光标定位到页眉页脚里面,然后插入--自动图文集--文件名和路径。

文件名和路径

  ③这时会在页眉页脚处自动生成文档名称以及文档所在路径,因为我是临时建立的文档,还没保存,所以并未显示路径。

自动生成

来源:http://www.tulaoshi.com/n/20160401/2092456.html

延伸阅读
iphone如何裁剪图片大小?   iPhone的拍照像素几乎能够满足于用户日常照相的需求,其自带的800万像素无论是旅游还是生活中都能够为我们拍摄出一张清晰的图片,不过一些用户在拍照后想要对相应的照片进行裁剪,需要借助什么工具呢?其实在iPhone手机中就自带有编辑功能,用户通过该功能能可进入对相应图片进行裁剪处理,下面看小Tulaosh...
如何修改word文档中插入的图片和图片内文字? 在WORD里,图片上的文字是不能修改的。除非在网上下载一个ocr,这个软件可以将扫描进去或者插入的图片内容进行修改。调整图片大小,左键点击图片,把鼠标放于周圈的8个调整点上,拖动即可。 在上下工具栏空白处点击右键,弹出竖条的工具选择对话框,点击图片按钮,弹出“图片”工具栏选...
标签: Web开发
以下是程序代码: script language="JavaScript" !-- //图片按比例缩放 var flag=false; function DrawImage(ImgD,iwidth,iheight){     //参数(图片,允许的宽度,允许的高度)     var image=new Image();     image.src=ImgD.src;    &...
标签: Web开发
javascript: 改变和控制显示的图片大小(保持比例,同时可限制高宽), IMG src="images/forumnew.gif" name=ntimg onResize="javascript: for(i=0;i123 && (this.width100||this.height100);i++){ this.width-= this.width/10 } /*alert(this.width)*/" _onLoad="alert('换图片了,不过是动画GIF,你就惨了,关不掉了')" onRe...
标签: word
word统一图片大小实例图文教程   图片过大,或者是大小不一,比如说有5张图片,想要发贴,下软件容易中毒又麻烦,教大家用电脑上的word来统一图片大小。 word真是最好用的图片缩小工具,既能把图片缩小,又不会明显降低图片的质量,好用的不得了。 下面这5张图是编辑前的样子: 大小不一,显得杂乱...

经验教程

477

收藏

24
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部