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、就这么简单!

相关推荐
2501_9293826520 小时前
MobiOffice解锁高级功能版 v15.9.57971 安卓手机doc, docx ppt, .pptx pdf办公软件
智能手机·pdf·powerpoint·wps
爱上妖精的尾巴1 天前
5-22 WPS JS宏reduce数组的归并迭代应用(实例:提取最大最小值的记录)
服务器·前端·javascript·笔记·wps·js宏
Uluoyu3 天前
word、pdf文档内容提取工具类
java·pdf·word
sanshizhang3 天前
word文档转pdf开源免费,可自定义水印
pdf·开源·word
程序员莫小特3 天前
WPS 文字制作电子贺卡
wps·教学日志
lijingguang3 天前
excel和word文件默认用office打开而不是用wps
word·excel·wps
Uluoyu4 天前
支持Word (doc/docx) 和 PDF 转成一张垂直拼接的长PNG图片工具类
java·pdf·word
VBAMatrix4 天前
报告工具更新!Word附注一键期末转期初
word·办公自动化·审计报告·审计·会计师事务所·报告工具·word附注
恶猫4 天前
Polaris Officev9.9.12全功能解锁版
pdf·word·excel·ppt·office·办公·打工
睿思达DBA_WGX5 天前
使用 python-docx 库操作 word 文档(3):读取word文档的内容
python·word