Word批量更改图片环绕方式与=尺寸大小
前提:一份Word文档里面有100张图片,有大有小,需要将100张图片更改为统一大小,宽度与高度均为5厘米,同时环绕方式也需要改成四周型。
默认Word图片的默认环绕方式为嵌入型,需要统一更改为四周型,然后才能批量更改大小,而批量更改大小方式需要使用VBA代码。
第一步:打开 Word 文档,并按下 Alt + F11 键(笔记本电脑按alt+fn+f11),打开 Visual Basic for Applications (VBA) 编辑器。在 VBA 编辑器中,选择 "插入" -> "模块",创建一个新的模块,如下图所示输入对应的代码。
第二步:在(VBA) 编辑器输入对应的过程代码:
VBA代码:
' 作用:循环遍历所有的环绕方式为嵌入型图片,将其更改为四周型
Sub ConvertInlineToSquareWrap()
Dim pic As InlineShape
' 循环遍历所有的嵌入型图片
For Each pic In ActiveDocument.InlineShapes
' 检查是否为图片类型
If pic.Type = wdInlineShapePicture Then
' 设置为四周型
pic.Select
Selection.ShapeRange.WrapFormat.Type = wdWrapSquare
End If
Next pic
End Sub
VBA代码:
' 作用:更改图片大小(对环绕方式为四周型或上下型起作用,如果是嵌入型不起作用)
Sub ResizeImages()
Dim shp As Shape
' 更改下面的宽度和高度为所需的尺寸(以厘米为单位)
Dim targetWidth As Single
targetWidth = CentimetersToPoints(5) ' 例如,将图片宽度调整为5厘米
Dim targetHeight As Single
targetHeight = CentimetersToPoints(5) ' 例如,将图片高度调整为5厘米
' 循环处理文档中的所有图片
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
' 更改图片大小
shp.LockAspectRatio = msoFalse
shp.Width = targetWidth
shp.Height = targetHeight
End If
Next shp
End Sub
说明:在 targetWidth = CentimetersToPoints(5) ,这个地方可以更改对应的最终目标图片的宽度; targetHeight = CentimetersToPoints(5) 可以更改对应的最终目标图片的高度;
运行宏:在 VBA 编辑器中,选择 "运行" -> "运行子过程",或按下 F5 键。
第三步:关闭VBA 编辑器回到Word中,选择 "开发工具" -> "宏",在弹出的宏对话框,如下图所示,宏对话框列表就会出现创建的过程,依次选定单击运行即可批量更改图片大小。
Word批量更改图片环绕方式与统一尺寸大小-Word技巧大全-读书屋办公软件教程
Word批量更改图片环绕方式与=尺寸大小相关推荐
- 用Photoshop批量修改图片的分辨率和尺寸大小
转自:https://jingyan.baidu.com/article/ff411625b1b91a12e482370c.html 假设你有很多很多张图片需要调整分辨率和尺寸大小,再假设要求每张图片 ...
- poi-tl导出word实现图片环绕方式为浮于在文字上方办法
poi-tl导出word实现图片环绕方式为浮于在文字上方办法 poi-tl简介 因为poi-tl暂时不支持设置图片环绕方式,但是可以自定义图片渲染插件 poi-tl简介 poi-tl(poi temp ...
- 使用浏览器console批量更改图片的宽度
如下图,每个图片的尺寸是220,但我想要得到的图片尺寸是640的.于是就想到用jquery来批量更改图片img的高度, 如上图,每个图片会有一个w_220的标识,即生成的图片是220宽度,当然这个是利 ...
- word 批量设置图片大小
word批量修改图片大小--固定长宽篇 方法一: 这部分要说的是把word中的所有图片修改成固定的并且相同的长和宽! 1.打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的 界面,如下面所示 ...
- 如何批量更改图片的名称
在工作和生活中,图片都是一个很重要的文件,在对这些图片文件进行整理的时候,可能会需要给每个图片进行重命名的操作.如果图片数量少,还可以一张一张地进行命名,但是图片多的话就不适合了,这时候我们可以直接对 ...
- 批量更改图片格式(png改为rgb)
一.使用labelme进行关键点标注,打开一些图片出现闪退,并报如下错误: KeyError: 'RGBA' OSError: cannot write mode RGBA as JPEG (keyp ...
- WORD批量转图片助手v8.6最新版
名称:WORD批量转图片助手v8.6最新版 版本:V8.6 软件大小:14MB 软件语言:简体中文 软件授权:免费版 应用平台:WinXP/Win7/Win8/Win10/WinAll 奈末Word批 ...
- Excel批量更改图片名称(无需下载其他工具)
1.先批量更改图片名称 方法:选中所有图片,进行重命名 2. 新建txt,命名去括号,然后将下列代码保存到此txt(这一步为了去括号,bat文件无法识别括号) @Echo Off&SetLoc ...
- 批量更改图片大小程序
假设我们现在有目标文件夹A,A中包含40个文件夹s1,s2...s40,每个文件夹下包含10张图1,2,3...10.图片大小任意. 我们的目标是在不改变整个图片数据格式的前提下,批量更改图片大小,最 ...
最新文章
- IntelliJ IDEA 自动编译功能无法使用,On 'update' action:选项里面没有update classes and resources这项...
- html5 graphics with svg css3,HTML5 GRAPHICS WITH SVG AND CSS3
- springboot配置mybatis
- 尝试实现手势控制计算机(持续跟进)
- 大数据之-Hadoop完全分布式_Crondtab定时任务调度---大数据之hadoop工作笔记0042
- warning: C4819: 该文件包含不能在当前代码页(936)中表示的字符。请将该文件保存为 Unicode 格式以防止数据丢失
- IE6下png图片透明设置
- curl的安装与配置
- 华中师范大学计算机专业有博士点吗,【考博】华中师范大学有没有计算机方面的博士点?...
- php截取部分pdf,如何将一个pdf文档拆分成多个
- 电子科技大学计算机导师李珂,导师个人信息 - 电子科大研招网
- 【区块链108将】区块链追溯产品起源,让每一个产品都是放心产品
- Unity曲面UI插件Curved UI
- 读书笔记-真实的诸葛亮-2
- 微信小程序弹出软键盘
- 宿舍管理系统1(pyhon与mysql)
- hadoop发行商介绍:Hortonworks
- 什么是Accessibility(辅助功能)
- 天池- IJCAI-18 阿里妈妈搜索广告转化预测新手入门经历(一:数据预处理、特征工程)
- K-Means检测DGA域名