01-图片相关脚本

批量设置 Word 的图片属性

打开你的文档（用word打开），点击第一个图片右击设置图片大小和格式：

设置好后 按 【Alt+F11】 进入 word 的 VBA 编程窗口

代码：

Sub setpic()
w = ActiveDocument.InlineShapes(1).Width
h = ActiveDocument.InlineShapes(1).Height
For i = 2 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = w
ActiveDocument.InlineShapes(i).Height = h
Next i
MsgBox "OK!"
End Sub

设置完成之后，点击运行，然后所有的图片都会设置成第一个图片设置的属性。

旋转图片

按 【Alt+F11】 进入 word 的 VBA 编程窗口，输入如下代码

Sub 更改图片方向()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 浮动图, 嵌入图, 旋转角度$
Set 文档 = ActiveDocument
旋转角度 = InputBox("请输入你想要旋转的角度" & Chr(13) & "顺时针90度输入 90" & Chr(13) & "逆时针170度输入 -170")
For 浮动图 = 1 To 文档.Shapes.Count
文档.Shapes(浮动图).IncrementRotation 旋转角度
Next 浮动图
For 嵌入图 = 1 To 文档.Range.InlineShapes.Count
With 文档.Range.InlineShapes(嵌入图).ConvertToShape
.WrapFormat.Type = 4
.Rotation = 旋转角度
.ConvertToInlineShape
End With
Next 嵌入图
Application.ScreenUpdating = 1
MsgBox ("一闪流溢提示：旋转完毕")
End Sub

设置完成之后，点击运行。