批量压缩WORD里图片体积大小的方法

superyxf

另存压缩为WEB方式等各种方法都试了200多张图片199兆的大小。。
求大神给个方便的方法

413191246se

楼主，如果图片未在WORD文档中，只在文件夹中，试试用 ACDSee v3.1 转换格式/质量来压缩尺寸。

40525299999

试试这个：
Sub setpicsizeType()
'2019
Application.ScreenUpdating = False
Dim j

k = ActiveDocument.InlineShapes.Count
On Error GoTo errHandler

For j = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(j).Select

Selection.Cut
Selection.PasteSpecial Link:=False, DataType:=15

continue:

Next j

If j > ActiveDocument.InlineShapes.Count Then Exit Sub

errHandler:
    Err.Clear
    Resume continue
   
Application.ScreenUpdating = True
End Sub

chendeyan126

批量压缩设置文档中所有图片
选中一张图片
点击“图片工具”
点击“压缩图片”
取消勾选“仅应用于此图片”
选择“电子邮件（96dpi）”
点确定即可。
如下图

leikaiyi123

试试WordPPT压缩工具nxpowerlite 4.1.4