Image compression using VBA

[Robertico]

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

Thanks in advance,

Robertico

 

[Jonathan West]

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

 

[Robertico]

Microsoft Office (Word) 2003 (11.6502.6408) SP1

 

[Jonathan West]

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

 

[Robertico]

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 West]

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]

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