word图片压缩宏

‘壹’ word在用宏批量设置图片大小

最近发现，以前存了很多图片在word，但图片的很大，有的很小，规格都不一样，堆在文档里面很难看，为了美观，下面给大家分享Word中利用宏批量设置图片大小的操作方法，欢迎大家来到学习。
Word用宏批量设置图片大小的方法
大家看看我是怎么样利用宏批量修改word中所有图片大小，
先打开存有图片的word。
在打开的文档中，选择在“工具”菜单中选择“宏”–“宏”。
随后弹出“宏”对话框，在宏名中输入setpicsize。
宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入如下代码
Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub
关闭入Visual Basic 编辑器，返回word，重新选择“工具”–“宏”–“宏”(或者直接按Alt+F8)，再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”—确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~

‘贰’ word中利用宏批量删除固定大小的图片

word文档批量处理大师软件是这方面的专业软件，功能多、实用，并且实用方便，你的要求仅仅是该软件的一个小功能，很简单的，超强，推荐！

‘叁’ 如何批量修改word文档中图片的大小

一次性调节word所有图片方法如下：

打开WORD，在”工具“菜单下，选择”选项“命令，在”选项“窗口中，”编辑”选项卡下，将插入图片的格式选择为“四周型”。在“插入”菜单中选择“图片”/“来自文件”，在“插入图片“对话框中选择要插入的图片。

然后在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”，使用“选中多个对象”，将所有插入的图片全部选中。双击任意一图片，在弹出的对余雹话框中，就可以统一批量设置了，完成。

在word中，默认插入的嵌入式图片是不能批量统一设置，只有将默认修改为四周型后，才可以批差毁皮量修改图片版式或大小。

用宏命令虚差最省心：

代码1如下：

Sub setpicsize()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(5) '宽5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

Next

End Sub

代码2如下：

Sub setpicsize()

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 300 '设置高度10.58cm

ActiveDocument.InlineShapes(j).Width = 510 '设置宽度17.99cm

Next j

End Sub

‘肆’ 如何通过“宏”批量完成word中所有图片大小的修改并且让图片安排原来顺序排列

1、Alt+F8调出宏编辑窗口 x0dx0a2、点创建按钮，创建新宏，setpicsize,内容如下： x0dx0aSub setpicsize() x0dx0a'设置图片大小 x0dx0a' 宏在 2008-3-31 由 hero_thm 录制 x0dx0a' x0dx0aDim j '计数图片个数 x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes x0dx0aActiveDocument.InlineShapes(j).Height = 362 '设置高度 x0dx0aActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度 x0dx0aNext j x0dx0ax0dx0aEnd Sub x0dx0a3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cmx0dx0aSub setpicsize()x0dx0a'设置图片大小x0dx0a' 宏在 2008-3-31 由 hero_thm 录制x0dx0a'x0dx0aDim j '计数图片个数x0dx0aFor j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapesx0dx0aIf ActiveDocument.InlineShapes(j).Width > 480 Thenx0dx0aActiveDocument.InlineShapes(j).Width = 400 '设置宽度x0dx0aEnd Ifx0dx0aNext jx0dx0aEnd Sub