Image compression using VBA

How can i compress all images form a document using VBA.
Already tried the Macro recorder, but no luck :-(

Thanks in advance,

Robertico

Jonathan
Sat Oct 01 06:43:20 CDT 2005

Which version of Office are you using? The possible solution depends on
this.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup


"Robertico" <Robertico@nomail.notvalid> wrote in message
news:OaKfX$mxFHA.1148@TK2MSFTNGP11.phx.gbl...
> How can i compress all images form a document using VBA.
> Already tried the Macro recorder, but no luck :-(
>
> Thanks in advance,
>
> Robertico
>
>

Robertico
Mon Oct 03 11:34:32 CDT 2005

Microsoft Office (Word) 2003 (11.6502.6408) SP1

Jonathan
Mon Oct 03 12:10:15 CDT 2005


"Robertico" <Robertico@nomail.notvalid> wrote in message
news:%23604ahDyFHA.3756@tk2msftngp13.phx.gbl...
> Microsoft Office (Word) 2003 (11.6502.6408) SP1
>

OK, in that case the following line of code will bring up the Compress
Pictures dialog, allowing the user to decide what compression to apply

Commandbars.FindControl(Id:=6382).Execute


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Robertico
Tue Oct 04 11:52:57 CDT 2005

> OK, in that case the following line of code will bring up the Compress
> Pictures dialog, allowing the user to decide what compression to apply
>
> Commandbars.FindControl(Id:=6382).Execute

I need to set this all by VBA, without any user interaction !

Regards,

Robertico

Jonathan
Tue Oct 04 12:23:58 CDT 2005


"Robertico" <Robertico@nomail.notvalid> wrote in message
news:eV6oYQQyFHA.3312@TK2MSFTNGP09.phx.gbl...
>> OK, in that case the following line of code will bring up the Compress
>> Pictures dialog, allowing the user to decide what compression to apply
>>
>> Commandbars.FindControl(Id:=6382).Execute
>
> I need to set this all by VBA, without any user interaction !
>
> Regards,
>
> Robertico

I think you may be out of luck. Unfortunately, that dialog is not a member
of the dialogs collection, and so cannot be automated.

About the only thing I can suggest is that you use Sendkeys to try and
simulate keypresses to the dialog.


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Robertico
Sat Oct 08 06:32:39 CDT 2005

Jonathan,
> I think you may be out of luck. Unfortunately, that dialog is not a member
> of the dialogs collection, and so cannot be automated.

Thanks anyway !.

Robertico