批量处理图片高度宽度vba代码

使用VBA：
Dim i

On Error Resume Next

For i=1 To ActiveDocument.InlineShapes.Count

ActiveDocument.InlineShapes(i).Height=300 '修改为自己需要的值

ActiveDocument.InlineShapes(i).Width=200 '修改为自己需要的值

Next

For i=1 To ActiveDocument.Shapes.Count

ActiveDocument.Shapes(i).Height=300 '修改为自己需要的值

ActiveDocument.Shapes(i).Width=200 '修改为自己需要的值

Next