WORD如何批量缩小图片

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

打开所要调整图片大小的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”即可按照要求更改图片大小。

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

如果说图片是按比例修改，则把第三步的程序改为：Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.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 T

o 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 nEnd Sub

进入工具菜单—宏—安全性—低，工具—宏—录制宏—键盘—定义快捷键—关闭。开始录制宏步骤：
编辑菜单—查找，在查找内容中输入∧g—查找下一处—点击找到的图片—点击图片工具栏上的设置图片格式按钮—大小选项卡—设置缩放高度中输入框50％，高度50％—确定。停止宏的录制。
直接连续按照设置的宏快捷键即可，按一次设置一张图片。

Word中批量压缩图片方法：可以让WORD文档大幅度减肥，而不影响文档原结构，让您轻轻松松把大字节原照变成所需大小，让您的文件瘦身不减美，成为电子信息冲浪仔。方法：
第一步：打开您的WORD文档，
第二步：随意右点一幅插图（右手标模式单点），可以看到该图框标志。
第三步：选择一具栏中图片工具格式（注：不点图此标志不会出来）。
第四步：点压缩图片
每五步：复选：文档中全部图片、WAB\、压缩图片；
第六步：点确定
OK，文档表面不会发现任何变化；
但是，存盘后再看看您的文档已经从M级变成了K级。
技巧发布：雷建勋
2012年4月9日星期一

可以把图片全部贴到excel里面，然后用图像的压缩功能，不要选“只缩小该图片”，然后选中所有的图像，一起变化尺寸，然后再贴回word就好