Hi all,



I am wanting to compress pictures in word 2010 using VBA. I have already scaled the inserted pictures, but need to still reduce the overall size of the document.

I am using the below code to try and accomplish this:-

but the sendkeys doesn't seem to be working correctly. (Word 2010 32bit, win 7 64bit)

When I do it manually I get a different compress pictures dialog box (first attachment) verse when being called in code (older possible 2003 version), even thought they both share the same ID of 6382.

I understand that it should really be done outside of word, but the end user, due to company policies is not able to install decent graphical software to compress pictures. They have to put the picture into word as a requirement of the report that are doing, so I was hoping to do it there.

I have also changed the default compression of images in the word options so that all new documents are created with a reduced dpi, but the document is still too large.

Is there a work around in vba to achieve the same result.

Attached Images

	2014-10-01 10_14_13-Compress Pictures.png (11.2 KB, 20 views)
	2014-10-01 10_19_04-Compress Pictures.png (9.9 KB, 20 views)

That looks like some code I posted at: http://social.msdn.microsoft.com/For...?forum=worddev

The code isn't meant to display a dialogue; it merely sets Word's compression to 'Web' resolution (96dpi). Changing the SendKeys code to:
SendKeys "%A%P{Enter}"
would sets Word's compression to 'Print' resolution (200dpi). That code works for Word 2003 & earlier, but not for Word 2007 & later. Although Word 2007 & later contain the same command bar, it doesn’t work. Indeed Word 2007 & later contain two command bars with the same ID - as your post shows - but it’s only the older non-functioning one the code activates. Since there is no difference in the IDs, there is no way to control which version Word serves up. According to the VBA help file:
Although one can also specify other attibutes to differentiate one control from another (e.g. Type:=1 for a button, or Tag:= something), I can't find anything to differentiate them. Even using the Visible:=True parameter with the Pictures Tools tab visible doesn't help. You'll probably need to find another method.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Looks like Windows are not supporting this. I am trying the code as well. I need it for work as we have to get files down under a 4MB limit. I have Office 365.Would be great to have a list box UserForm with a choice of 150ppi or 95ppi. Perhaps the FindControl ID has changed?

No, as discussed nearly eight years ago, it's Word that doesn't support it...

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]