怎样批量调整word 图片大小?

时间:2023-02-04 23:28:48

这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的

Sub Macro()

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = iShape.Height * 1.5

iShape.Width = iShape.Width * 1.5

Next iShape

End Sub

F5运行一次就可以了。