打开所要调整图片大小的word文档。

点击工具—宏—visual basic编辑器。点击试图—代码窗口，打开代码窗口。

将代码“Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To

ActiveDocument.InlineShapes.Count

'InlineShapes类型图片ActiveDocument.InlineShapes(n)

.Height

= 100 '设置图片高度为 100pxActiveDocument.InlineShapes(n)

.Width

= 100 '设置图片宽度 100pxNext nFor n = 1 To

ActiveDocument.Shapes.Count

'Shapes类型图片ActiveDocument.Shapes(n)

.Height

= 100 '设置图片高度为 100pxActiveDocument.Shapes(n)

.Width

= 100 '设置图片宽度 100pxNext nEnd Sub”

输入窗口，修改其中“Height = 100”和“Width = 100”即可按照要求更改图片大小。