关于用vba压缩word2016文档中图片的问题

xjmichael

通过vba代码向word2016文档中批量插入图片后，如何用vba代码实现对这些图片的统一压缩？由于无法通过录制宏的方式获取代码，在网上找了了段代码（如下）：
实际可以运行，但图片仍未被压缩，请高手帮忙，谢谢！

1. SendKeys "a", False
   
2. SendKeys "w", False
   
3. SendKeys "^{ENTER}", False
   
4. Word.CommandBars("Picture").Controls("压缩图片(&C)...").Execute

复制代码

xjmichael

高手在哪里？？快快来帮忙

MAEL_AARON

是不是可以通过word选项中，高级命令中的图像大小和质量统一调整像素吗，我这还停留在低级应用，不会编写VB，哈哈

413191246se

楼主，VBA 压缩图片我还不会，但是你如果有点儿急用的话，可以用 ACDSee v3.1 来批量压缩转换图片。

xjmichael

以上的方法我也知道，只想通过vba来一步实现，有点强迫症

iec-ccc

Sub PressPic()
Dim i As Integer
      
    i = ActiveDocument.InlineShapes.Count
   
    If i = 1 Or i > 1 Then
   
       ActiveDocument.InlineShapes(1).Select
       SendKeys "A^{ENTER}", True
       ActiveDocument.Application.CommandBars.Item("Picture").Controls.Item(10).Execute
   
    End If
   
End Sub

daibao88

用vba使用命令的方式，处理图片压缩应该不行，需要API处理，感兴趣的可以自己百度一下。

zhanglei1371

思路：API将图片另存出来==>调用第三方命令行工具压缩图片（或手动用软件压缩）==>VBA再导入进来。
代码量估计至少200行以上。

wanl01

楼主，后来解决了吗？