Word或者WPS批量调整文中图片大小的快捷方法

文章目录


0、前言

不知道大家是不是也和我一样,经常需要在编写的Word(或者WPS)文档里插入大量的图片,但是这些图片的尺寸大小一般都不一样,有时甚至超出了页面范围,一张一张的调整图片大小来适合页面宽度或者满足版面美观的需要,那真是一件非常费力的事。有没有快捷的方法来取代这种费力不讨好的人工调整方式呢?经过我的一番学习,还终于找到了一个非常简单得方法,那就是编写VBA宏的方式,且代码仅仅几行!这下可以彻底解放我的眼睛和鼠标手了,无限的提高了写作效率。下面就来分享部署过程吧。


1、编写宏代码

当然得前提是你使用的Word或者WPS要有VBA模块才行,如果没有的话,也可以搜索安装VBA模块后使其具备VBA编程功能的。

任意打开一篇文档(或新建一篇文档),在【开发工具】菜单中找到【VB编辑器】,打开它。

然后在工程-Normal-项目下插入模块编写宏代码------相当于在常规模版中添加宏,这样就可以在所有的文档中均可以调出该宏,而不是只在当前文档中才能调用。

然后参照如下示例编写2个宏(示例中是否需要锁定纵横比、图片宽度和高度可根据需要调整)并保存:

Sub 批量调整图片高宽()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(15) '宽15CM,根据你的需要调整

iSha.Height = CentimetersToPoints(10) '高10CM

End If

Next

End Sub

Sub 批量设置图片等宽()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoTrue '锁定纵横比

iSha.Width = CentimetersToPoints(15) '宽15CM,一般情况下与页宽相协调,可根据你的需要调整修改

End If

Next

End Sub

2、在文档中调用宏实现一键批量调整

经过上述设置后,我们打开任意一篇包含图片的文章,点击【开发工具】菜单下的【VB宏】,会弹出下图类似的宏菜单,我们选择一个宏(比如【批量设置图片等宽】),然后再点击【运行】按钮。

文中的所有图片马上就按照宏中的15cm宽度进行自动调整了:


3、就这么简单!

相关推荐
ly-272533 小时前
WPS工具栏添加Mathtype加载项
wps
Ιτ-ωoгκεг4 小时前
在 Java 中使用 Apache POI 为 Word 文档添加水印
java·word·apache·poi·水印
LiQiang334 小时前
WPS Word中英文混杂空格和行间距不一致调整方案
word·wps
HACKNOE1 天前
python从入门到精通(二十六):python文件操作之Word全攻略(基于python-docx)
python·c#·word
inxunoffice1 天前
删除或替换 Word 中的首页、尾页以及其它指定范围的页
word
inxunoffice1 天前
批量在 Word 的指定位置插入页,如插入封面、末尾插入页面
word
勘察加熊人2 天前
python将pdf转换成word
python·pdf·word
見贤思齊2 天前
WPS条件格式:B列的值大于800,并且E列的值大于B列乘以0.4时,这一行的背景标红
wps
LongtengGensSupreme2 天前
Net8 Spire最新版去水印,去页数限制,转word/pptx/ofd等
word
万物得其道者成2 天前
Vue 3 实现 HTML 内容预览功能:仿 Word 样式与内存安全实践
vue.js·html·word