word 图片怎么批量调整大小

1

2

3

4

5

6

7

8

word 字间距突然变大怎么解决

咱们在日常的工作中，在Word中编辑文字时有时会遇到这种情况：在输入文字时，有时是文字跟英文穿插着输入，但是突然有一行的文字间距突然变大了，遇到这种情况要如何解决呢？下面让我

Sub SetPicSize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片

ActiveDocument.InlineShapes(n).Height = 24 * 28.35 '设置图片高度为 24cm （1cm等于28.35px）

ActiveDocument.InlineShapes(n).Width = 14 * 28.35 '设置图片宽度 14cm

Next n

End Sub