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

[gege45]

图片工具栏中，有一个按钮是“压缩图片”
求VBA语句，使用图片压缩，并且

“应用于”-> 文档中的所有图片
“更改分辨率”->web/屏幕

选项都勾选上

因为VBA录制宏无法实现这个功能，求高手指点，不胜感激！

[gege45]

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

可否有高人指点一下？

[CathySun118]

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

[lyserver]

我想你是想在后台悄悄进行图片压缩，这个想法基本不可能。因为压缩针对的是图片，即通过图片失真，降低图片的颜色位数，减小位图的数据量，从而缩小文件长度，换句话说，压缩结果是针对位图的，并没有属性值存储在文档中，所以除了执行它的对话框外，你无法在后台悄悄进行。除了自己写图片压缩代码或调用第三方的压缩代码。

[lyserver]

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

[uxen]

压缩后另存一下，应该就看出来了。

[gege45]

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

[lyserver]

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

[yuhaifeng201]

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