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

superyxf · 发表于 2018-12-28 19:26

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

413191246se · 发表于 2018-12-28 23:50

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

40525299999 · 发表于 2019-1-9 16:12

试试这个：
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 · 发表于 2019-1-25 17:21

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

leikaiyi123 · 发表于 2019-2-7 14:01

试试WordPPT压缩工具nxpowerlite 4.1.4

		自动登录	找回密码
密码			免费注册

[求助] 批量压缩WORD里图片体积大小的方法