急！VBA 实现“压缩图片”功能，高手可否进来指点一下！

Question

图片工具栏中，有一个按钮是“压缩图片”
求VBA语句，使用图片压缩，并且“应用于”-> 文档中的所有图片
“更改分辨率”->web/屏幕选项都勾选上因为VBA录制宏无法实现这个功能，求高手指点，不胜感激！

Answer 1

尝试用VBA中调用Word中图片压缩功能

Answer 2

楼上的，VBA可以用
WordDocument1.CommandBars.Item['Picture'].Controls.Item[10].Execute
调用出 压缩图片 的弹出界面
但是，改变弹出界面的参数等工种怎么办？可否有高人指点一下？

Answer 3

另外我刚才测试了一下,在Office中,图片压缩实质上根本没有起作用.

Answer 4

TO:lyserver ,压缩图片的功能是起作用的。
另外，VBA论坛里面真的没人知道怎么做么。
是在不行，只好用其他的变通的方法了。

Answer 5

哦。
压缩效果如何？
另外，在Office里，可以使用Shape对象引用你加入的图片，比如：
Dim o As Shape
Set o = Sheet1.Shapes.AddPicture(...)
然后你逐一试一下o的属性，我试了，除了压缩没找到外，其它的功能（如旋转图片）都可以。
另外，好像Word的Shape对象名称还有一种类型，即InlineShape。

Answer 6

可以模拟键盘按键，实现图片压缩的功能
就是完全模拟人工操作WORD，可以使用keybd_event函数实现。