Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Changing Compression Print Resolution.

Changing Compression Print Resolution

by Allen Wyatt
(last updated July 1, 2017)

2

Jon wants to know if he can change the default compression settings in the Format Picture dialog box. When he clicks the Compress button (on the Picture tab of the Format Picture dialog box), the Print resolution setting is 200 dpi. Jon would like to change that to 300 dpi.

There is no way to do this that we've been able to locate. A better solution is to not use Word to do any compression of pictures. Instead, use a dedicated graphics program to modify and edit your graphics just the way you want them, and then add them to your Word document. Why is this better? Because just like you wouldn't use a graphics program to do word processing, it is a good idea to not use your word processor to do graphics. The manipulation and preparation of graphics is specialized enough that you'll get better results if you avoid Word's tools and use those in a specialized program, instead.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (433) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Changing Compression Print Resolution.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Quickly Displaying the Tabs Dialog Box

Setting tabs in a paragraph is a common task. This is most easily done by using the Tabs dialog box. Displaying the ...

Discover More

Lotus Grouped Worksheets

Not all spreadsheet programs are created equal; there are some things that can be done in others that can't be done in ...

Discover More

Creating Two-Line Custom Formats

Creating custom formats is a very powerful way to display information exactly as you want it to appear. Most custom ...

Discover More

Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!

More WordTips (menu)

Resize Graphics Outside of Word

Need your graphics to be larger or smaller than they first appear when you insert them in a document? Your best bet may ...

Discover More

Keeping Callouts Positioned

Using graphics to add callouts to your graphics is a common occurrence in Word. Here's how to stop all those graphics ...

Discover More

Inserting from the Clip Art Gallery Doesn't Work

Ever insert a picture and it won't display in your document? It could be due to some of the display settings in Word. ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is six more than 1?

2021-10-02 22:34:35

James Martin

https://social.msdn.microsoft.com/Forums/sqlserver/en-US/db2cdd0d-c226-4d4f-b548-752871140889/how-do-i-change-a-picture-dpi-programatically?forum=exceldev


Public Sub Sample()
If TypeName(Selection) = "Picture" Then
'* select [Web (150 ppi)]
'press Alt and typing W key.
Application.SendKeys "%w"

'* select [Web (150 ppi)] and enter
'press Alt and typing W key, and then press the Enter key.
'Application.SendKeys "%w~"

'show [Compress Pictures] dialog.
Application.CommandBars.ExecuteMso "PicturesCompress"
End If
End Sub


I have the same problem, with 4MB upload limit to a customer account system at work. I am going to try this solution next week, sometimes I need to go to 95ppi. I have a neat UserForm which www.gmaxey.com sorted for me, for 2 image rotation macros, 1 for all images or the other for a selection, with 90, 180 or 270 degrees.I should be able to copy this for the 2 lower docx compressions... I hope. The above VBA is corrected in the discussion.

I am using a macro to save selected outlook email as docx, this is amazing, my productivity has increased by over 100% https://www.slipstick.com/developer/code-samples/save-outlook-email-pdf/ I have amended this as instructed to docx, and spent time to automate the file name with sent date, sent time, from name, and subject (no typing!)

The problem is that our customers use their mobiles to take pictures of each page and don't use Google lens or equivalent. The embedded images are not classed as attachments, are original size, often High Res and way bigger than the standard A4 docx size. I am still testing a solution and it seems to work, I intend to add to the outlook to docx macro:


Sub ResizePicturesIF()

'Macro S for size

'inspiration from vbaexpress.com/forum/showthread.php764143-Word-VRA-Macro-Needed-to-Crip-amp-Resize-Pictures

Dim oDoc As Document, oshape As InlineShape
Set oDoc = Application.ActiveDocument

For Each oShape In oDoc.InlineShapes

If oShape.Width > 510 Then
oShape.LockAspectRatio = True
oShape.Width = 510

End If

If aShape.Height > 660 Then
oShape.LockAspectRatio = True
oShape.Height = 660

End If

Next

Set oDoc = Nothing

End Sub


Works brilliantly so far. Most embedded photos come through in landscape which is why I have set the width reset first to the margin width give or take the current set value. If one image is portrait and too long then the the height reset will bring in all the images within A4. I then use my rotate UserForm via The mouse roller and Ctrl to zoom in and out with multi pages selected in the ribbon.


2018-01-23 21:23:03

John Roberts

Hi Allen,

I would love to "not use Word to do any compression of pictures", however I frequently receive files from my colleagues with the following option set :-

(Word 2016) File > Options > Advanced > Image Size and Quality > Default Resolution > 150 ppi (or lower!)

Then, when I go to insert my lovely 300 ppi image into one of these files, word "helpfully" downscales it to 150 ppi and, to add insult to injury, at the same time Word seems to re-define the image's dimensions, so that when size is re-set to "100%" it is not displayed (or printed) at the same size as the original either. When I manually change this setting (to "High Fidelity"), prior to inserting images, these problems do not occur. As I am presently using a VBA macro to insert the images (updated header logos), is there a vba method to modify this setting? I have looked but am unable to find one. If not, are you able to suggest any helpful alternatives?

Kind regards,

John.


This Site

Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.