如何把word中的所有图片全部缩小

1.如何把word中的所有图片全部缩小

假设缩小为原来的25%:

按Alt+F11——在左边Porject下找到ThisDocument：右键——插入——模块——粘贴下面的代码：

Sub Macro()

For Each iShape InActiveDocument.InlineShapes

iShape.Height =iShape.Height * 0.25

iShape.Width =iShape.Width * 0.25

Next iShape

End Sub

按F5运行。

2.求怎么把word里的所有图片一起缩小

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

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

3. 将代码“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”即可按照要求更改图片大小。

4. 点击运行—运行子程序，或者按F5运行即可。图片大小就修改完毕。

5. 如果说图片是按比例修改，则把第三步的程序改为：Sub setpicsize（) '设置图片大小Dim n '图片个数DimpicwidthDim picheightOn Error Resume Next '忽略错误For n = 1 ToActiveDocument.InlineShapes.Count 'InlineShapes类型图片picheight =ActiveDocument.InlineShapes(n).Heightpicwidth =ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height = picheight* 1.1 '设置高度为1.1倍ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nFor n= 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight =ActiveDocument.Shapes(n).Heightpicwidth =ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 1.1'设置高度为1.1倍ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍Next nEndSub