如何利用三行代码搞定word中批量统一图片大小
发布时间：2022-08-14 15:02:33
标签：word批量统一图片大小
有时Word中需要插入多张图片，但插入后的图片大小却各不相同。一张一张地选中，再去格式中修改，显然会耗费大量时间。
如图，插入5张图片后，图片尺寸过大，一页只能放下一张图片。
执行宏后，所有图片缩小为5cm宽度，一个页面可以放下5张图片了。
接下来介绍如何通过简单的VBA代码实现一键批量修改所有图片大小。
第一步：单击【开发工具】→【查看代码】→【插入】→【模块】
第二步：输入以下代码（不区分大小写）
※代码含义提示
For Each iShape In ActiveDocument.InlineShapes … Next
遍历循环Word中所有图形
iShape.Width = 28.345 * 5 或 iShape.Height = 28.345 * 7
指定图片宽度为5cm 或 高度为7cm（28.345是单位换算），由于图片纵横比是固定的，所以只需用代码指定图片宽度或高度其中一项即可
※用户操作
单击【开发工具】→【宏】→选中宏名为Macro→【执行】
0
投稿猜你喜欢
- #N/A错误通常表示公式找不到要求查找的内容。热门解决方案VLOOKUP、HLOOKUP、LOOKUP或MATCH函数的#N/A错误的最常见
迅雷下载非常好用，可以使用很多的资源链接进行分享和下载，但是很多的用户因为杀毒软件之类的原因而导致了下载崩溃，那么该怎么解决呢？一起来看看吧- 有用户尝试登录Xbox时看到以下错误消息：“抱歉，您的Microsoft 帐户出现问题”，这是怎么回事？出现这个错误意味着你的Microso
- PPT 自带了很多功能，有一些功能比我们想象的还要强大，今天想分享的Smartart就是其中之一。什么是smartartsmartart 是
- 微软已经向内部测试者和合作伙伴提供了Windows 10 build 9888进行测试。win10预览版build 9888开始试图统一菜单
- PPT图片邮票效果怎么做？PPT是我们最为常用到的演示软件，近期有用户想要制作有邮票效果的图片，那么应该如何操作呢？其实方法很简单，下面小编
- rank是excel中的一个统计函数，最常用的是求某一个数值在某一区域内的排名。据小编接触到的excel而言这个函数并不常用，因此很多用户可
- Commander One 是一款Mac上的双窗口文件管理器，它拥有强大的搜索，可以显示隐藏文件，无限标签，支持Root访问，内置进程管理器
- 在win10系统中我们办公的时候经常使用的是office软件，一般在工作环境中都会有多台打印机，在我们使用office 中的word 或ex
- 许多用户在使用电脑的时候经常会安装多个输入法软件，最为常用的就是五笔输入法和拼音输入法了，但是也有其他特殊用户会用到别的输入法，那么对于Wi
- 从外媒公布的图片来看，Windows 10的开始菜单以及任务栏都已经用上了毛玻璃特效，而且视觉效果颇为养眼。希望微软能在Windows 10
- 最近有很多小伙伴遇到了win10系统更新关闭后会自己打开的问题，那么Win10电脑重装系统更新关闭了还自动打开怎么解决呢？下面小编带来了wi
- win10游戏频繁弹回桌面怎么解决？有一些玩家反映Win10玩游戏频繁弹回桌面，玩起来非常不流畅，那么Win10玩游戏频繁弹回桌面的怎么办？
- 许多用户在选择电脑的时候都会选择笔记本电脑，因为非常方便携带。但是最近有的小伙伴发现自己的笔记本电脑屏幕进灰了，遇到这种情况我们要怎么解决呢
- WIN7的系统安全设置高了.有时候一些文件无法修改了.我们要重新设置一下Windows 7系统之所以比XP安全性更好，一个重要原因就是对系统
- Hello大家好，我是帮帮。今天跟大家分享一下word文档资料设置为模板，直接点选应用，高效工作不操心。有个好消息！为了方便大家更快的掌握技
- Excel工具栏隐藏了怎样弄出来？有用户的Excel软件工具栏功能区隐藏起来了，导致自己需要使用一些功能的时候无法操作。那么如何重新让它显示
- word2013自动生成目录怎么操作第一步、打开文档之后，点击“插入”--“页码”，然后按自己需求设置格式。 word2013第二步、选择“
- 系统更新可以使我们系统拥有微软公司最新发布的一些功能，还能修复之前那系统存在的漏洞，但是有的用户发现系统更新完之后电脑就无法开机了，这个问题
- 最近有Win10系统的用户反映，在使用电脑双击某个文件的时候，系统提示“Windows无法打开此类型文件”，导致文件打不开，这是怎么一回事呢
