Written by Allen Wyatt (last updated January 14, 2022)
This tip applies to Word 97, 2000, 2002, and 2003
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.
The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!
Do you struggle with getting your graphics and surrounding text to appear just the way you want it? Here are some ...
Discover MoreNeed to keep your drawing shapes together in one place? The drawing canvas may be exactly what you are looking for.
Discover MoreIf you have a document with many graphics, you know that Word can sometimes be slow in displaying all those graphics. ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2021-10-02 22:34:35
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.
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.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2023 Sharon Parq Associates, Inc.
Comments