• 欢迎光临~

在word中一键压缩所有图片

开发技术 开发技术 2022-06-03 次浏览
在word文档中,如果有多张图片的话,通常只能一张一张地压缩,相当不方便。
如图:
在word中一键压缩所有图片

 



通过添加宏,可以实现一次压缩所有图片,唯一不中的是dpi的选择没有上面那张图那么多。
 
如图:
在word中一键压缩所有图片

 
对应的宏:
Sub CompressPhotos()
'
' 一键压缩所有图片
'
 Dim docNew As Document
 Set docNew = ActiveDocument
 docNew.CommandBars("Picture").Controls(10).Execute
 
End Sub
 

[完]
程序员灯塔
转载请注明原文链接:在word中一键压缩所有图片
喜欢 (0)