word 批量设置图片大小
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 = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时, 可能会花一些时间)
方法二:
1、在word中按alt+f11组合键,进入VBA模式
2、在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
3、把下面代码复制,粘贴进去.
4、更改数值, 改一下宽度和高度数值(10),点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10 ‘10为图片宽度(厘米)
Myheigth=10 ‘10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
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 批量设置图片大小相关推荐
- Word批量设置图片大小
写论文需要批量统一图片格式?让我们打开word"宏". 1.查看Word图片属性是像素(px)还是厘米(cm) 如果是厘米,可以参考步骤二设置.如果是像素,跳转到步骤三开始codi ...
- 步骤条自定义图片_小技巧丨如何使用word批量调整图片大小?
导Lead语 不知道你们有没有遇到需要批量修改图片尺寸的难题?那么,在大量图片的前提下,如何才能快速修改呢? 今天就和大家分享一下我当初的解决方法: 1F在word中添加 选择多个对象功能 新建一个W ...
- word批量调整图片大小
1.新建一个空白word文档 2.选中一组图片(177张),按下ctr+c复制 3.将这组图片复制到word中. (本来我们的图片在文件夹中的时候是排好序且是正序的,可是粘贴到word这里好像变成乱序 ...
- 如何批量处理Word中的图片大小
用宏批量定位word中图片位置 word文档里面有多幅图,但图片的缩进位置不统一,有些靠右,有些居中,有些靠左等等. 能否通过编制宏一次完成调整,让所有图片靠左,或居中. 通过宏可以批量完成一 ...
- 在WORD中批量修改图片大小
今天在word中批量修改图片时发现了word一个强大的功能,不多说废话,直接附上步骤: 1.首先按一定的顺序将图片插入word当中: 2.点击"视图"----"宏&quo ...
- Word中批量调整图片大小
当一个文档中图片较多,又需要调整图片大小时,这时可以通过"宏"执行代码来批量调整. 打开一个Word文档. "Alt+F8"键打开宏. 设置"宏名&q ...
- Word批量更改图片环绕方式与=尺寸大小
前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型. 默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型 ...
- C# 操作word 指定书签位置插入图片并设置图片大小和位置
object Nothing = System.Reflection.Missing.Value; //创建一个名为wordApp的组件对象 Application w ...
- java 在线给word 文件插入图片,并设置图片大小
一.前言: 有时我们想在一篇word文档中的指定位置添加一张服务器上的图片,并且并且设置图片大小.这个对文档的操作一定是需要第三方api的.市面上对文档处理的插件有POI以及openoffice等等, ...
最新文章
- 景驰科技又生闹剧?法人代表潘思宁将CFO吕庆诉至法院
- 知乎热议:高数、线代应该成为计算机专业学习的重心吗?
- python获得用户输入的一个字符串(长度3)_python3 字符串属性(一)
- 在VS2010中配制Elmah邮件发送到Gmail
- tomcat启动成功 未加载项目_欣冠精密eHR系统项目成功启动
- 关于LayoutParams
- Launch debug in SWI1 workflow
- 10G_Ethernet_04 10G Ethernet Subsystem IP 的快速验证(万兆以太网IP的快速验证)
- quantaxis使用docker安装,解决了一个很奇特的问题
- java解析带斜杠的参数_Java Spring MVC应用程序仅接受带有斜杠的POST请求
- 软件开发基本流程概述
- Keil MDK5安装详细步骤
- 机器学习算法 之 逻辑回归算法
- 【oracle】函数minus
- 时间漩涡的世界 (二)
- 如何设置无需fn直接按F1~F10(HP Pavilion Notebook )
- 023-公平感|领导者的内功
- HBase原理–所有Region切分的细节都在这里了
- 胶囊网络可以PK掉CNN吗?//——暂时不能 胶囊网络的不足点思考
- Bootstrap学习之表单
热门文章
- 量子计算机每次秒可达多少次,激光脉冲让运算速度提升百万倍 量子计算机有望实现室温运行...
- 换IP软件能否实现定时切换IP?一起来验证
- com.google.common.base.Stopwatch 应用
- 怎么监控mysql数据变化_实时监控mysql数据库变化
- NetworkX学习笔记07:泊松分布与幂律分布
- Lync 2010 客户端:无法登陆到Lync,验证服务器中的证书时遇到问题
- 附件怎么插到公众号里
- python守护进程进程池_Python—守护进程管理工具(Supervisor)
- 浅谈解析库XPath,bs4和pyquery
- 快速掌握Charles抓包工具 [MP4] (115M)