如何批量调整word中插入的图片大小-word2007图片大小,word2007统一图片大小

1、在百word中按alt+f11组合键,进入VBA模式
2、在左边的工程资源管理器中找到你的word文档,在其上右度键/添加/模块
3、把下面代码复制,粘贴进去.
4、更改数值, 改一下宽度回和高度数值，点运行(类似播放按钮.)或f5,即可设置文档中全部图片
代码如下：
Sub Macro()
Mywidth=14.13 '14.13为图片宽度（厘米）答
Myheigth=20 '20为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

Word如何批量调整图片大小？

之前也遇到这个zhidao问题，只找到下面这个方法是有效的。开发工具--vba窗口，把代码复制进去，运回行就可以。

Sub 宏2()
'
' 宏2 宏
'
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
.Height =MillimetersToPoints(120) '以毫米为单位设置高度答，120毫米高
.Width =MillimetersToPoints(85.7) '以毫米为单位设置宽度，85.7毫米宽
End With
Next
End Sub
-----图片尺寸以毫米为单位；

Word如何批量调整图片大小？