WordVBA批量调整word中图片的大小

哆哆Excel

发布于 2024-01-26 13:59:35

1240

发布于 2024-01-26 13:59:35

文章被收录于专栏：哆哆Excel哆哆Excel

问题：

在word文档中，

当我们有很多图片时，

你是不是还在一张一张的调整大小

今天给你一个代码,让你快点下班

代码：

批量修改Word文档中图片的大小为18厘米*13厘米

Sub setpicsize()                                           '设置图片大小
Dim n                                                      '图片个数
On Error Resume Next                                       '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count             'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.InlineShapes(n).Height = 18 * 28.35     '设置图片高度为 3cm（1cm等于28.35px）
ActiveDocument.InlineShapes(n).Width = 13 * 28.35 ' 6 * 28.35       '设置图片宽度 6cm
Next n
End Sub

使用方法：

代码放在此处哦