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

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

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

Sub Macro()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = iShape.Height * 0.25
iShape.Width = iShape.Width * 0.25
Next iShape
End Sub

按F5运行一次就可以了。

那个满意答复很牛啊，做个记号

双击要修改的图片,在出现的菜单选择"大小",在缩放里,输入你要输入的大小

如果图片的版式是“嵌入型”以外的其他版式，可以按Shift键，再连选各个图片——右键——设置图片格式——大小——缩放：输入25%——确定。

点击编辑全选，然后右键调整图片大小即可。