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 January 14, 2022)

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

AutoFormat within Form Fields

When entering information into protected form fields, Word doesn't apply the formatting inherent in the AutoFormat As You ...

Discover More

Copying a Range of Pages in a Macro

Do you need to copy, within a macro, a range of pages? Because pages can be so fluid in Word, this can be a bit tricky. ...

Discover More

Adding Buttons to Your Worksheet

You can easily add a button to your worksheet that will allow you to run various macros. This tip shows how easy it is.

Discover More

Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!

More WordTips (menu)

Adjusting Shadow Settings

Insert a graphic into a document and Word allows you to add a shadow behind the graphic. You can also adjust the ...

Discover More

Grouping Drawing Objects

Drawing objects are easily added to a document. You can group these objects so they are easier to manage by following the ...

Discover More

Converting Tables to Charts

Put numeric information in a table and you can then convert that information to a graphical chart using Microsoft Graph ...

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 3 - 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.

Videos
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.