分布图如何在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运行。