Changing Compression Print Resolution

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.

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.