word中图片批量统一大小图文的操作方法
时间:2022-05-09 19:35:45
从网上下载的图片一般都是大小不一致的。在这种情况下,可以通过一些看图软件来统一图片的大小。下面,告诉大家一个使用简单工具快速批量调整图片大小的方法。这个工具就是大家经常使用的office word。今天,小编就教大家在word中图片批量统一大小图文的操作方法。
word中图片批量统一大小图文的操作步骤如下:
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
1. 打开要统一图片大小的 Word 文档,点击“工具”-“宏”-“Visual Biscal 编辑器。
2. 插入 normal 工程“模块”。
3. 在“模块”中粘贴上面的代码。
4. 保存,返回你要统一图片大小的 Word 文档。运行“工具”-“宏”-"宏命令"。
看一下结果,是不是你想要的统一图片大小。
我用的两张图一个大一个小,统一后 400*300 还是很大,放在两个页面上,上面是25%的缩略图,至此实现了统一大小的目标,如果你想要其它的大小,只需按代码里的说明更改一下长宽数值即可。
按比例缩放的方法和上面的是一样的,只是代码变化一下,过程就不熬述。VBA 代码如下:
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
word中图片批量统一大小图文的操作方法
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
网页快速转换为WPS与WORD文档要如何操作
![](https://img.aspxhome.com/file/2023/0/19890_0s.jpg)
Word2013文档中插入动态日期和时间方法
![](https://img.aspxhome.com/file/2023/1/20411_0s.jpg)
2种有针对性的把word隐藏起来
![](https://img.aspxhome.com/file/2023/3/20723_0s.gif)
Excel2010数据图表的创建方法详细操作分享
![](https://img.aspxhome.com/file/2023/3/16043_0s.png)
Word图片怎么批量导出
![](https://img.aspxhome.com/file/2023/9/17219_0s.jpeg)
Win10电脑蓝牙键盘连接不稳定怎么办?
![](https://img.aspxhome.com/file/2023/7/49847_0s.png)
在Word表格前插入空行,和文本
word里面怎么设置乘法公式
![](https://img.aspxhome.com/file/2023/5/19265_0s.jpg)
Win10声音无法找到输出设备怎么办?
![](https://img.aspxhome.com/file/2023/8/50668_0s.jpg)
如何在Word 2013中应用样式集?
![](https://img.aspxhome.com/file/2023/6/23266_0s.jpg)
WORD中有些行对不齐怎么办?
Office Sway 应用是什么,有什么功能?
![](https://img.aspxhome.com/file/2023/8/16758_0s.jpg)
word无法打开现有内容(normal.dot)怎么办
![](https://img.aspxhome.com/file/2023/7/20027_0s.png)
保存在电脑中的word文档不见了,怎么办?
![](https://img.aspxhome.com/file/2023/0/24900_0s.jpg)
word怎么设置纸张大小?word纸张大小设置方法
![](https://img.aspxhome.com/file/2023/5/23105_0s.png)
Win10专业版系统相机打不开摄像头出现闪退怎么办?
![](https://img.aspxhome.com/file/2023/5/50395_0s.jpg)
如何在wps表格调整行高
Word中文档图片设置格式的操作方法
Word中如何设置前几页不要页眉?
![](https://img.aspxhome.com/file/2023/4/18204_0s.png)
如何修改pdf文档内容呢?
![](https://img.aspxhome.com/file/2023/8/15618_0s.jpg)