Batch resize images in Word
Olivier
-
m@rina Posted messages 27234 Registration date Status Modérateur Last intervention -
m@rina Posted messages 27234 Registration date Status Modérateur Last intervention -
Hello,
I just created a mail merge in Word to make cards each containing a photo. It works, and I get my 24 cards each with its photo. The problem is that Word, in the merged document, displays the images ridiculously small even though they are 900 px wide. How can I display all images at a reasonable size at once? Of course, it's not feasible to adjust the size of the images one by one, which would mean 24 operations to do.
Configuration: Windows / Firefox 33.0
I just created a mail merge in Word to make cards each containing a photo. It works, and I get my 24 cards each with its photo. The problem is that Word, in the merged document, displays the images ridiculously small even though they are 900 px wide. How can I display all images at a reasonable size at once? Of course, it's not feasible to adjust the size of the images one by one, which would mean 24 operations to do.
Configuration: Windows / Firefox 33.0
2 réponses
Hello,
This is such a small macro that it's not worth skipping!
Just set the desired width in cm (I've set it to 4 cm here), and the height will automatically adjust.
If your images have text wrapping, replace InlineShape(s) with Shape(s).
m@rina
Comment ça marche is a public forum. I do not respond to questions asked in private messages.
This is such a small macro that it's not worth skipping!
Sub enlarge_photos()
Dim image as InlineShape
For Each image In ActiveDocument.InlineShapes
image.Width = CentimetersToPoints(4)
Next
End Sub
Just set the desired width in cm (I've set it to 4 cm here), and the height will automatically adjust.
If your images have text wrapping, replace InlineShape(s) with Shape(s).
m@rina
Comment ça marche is a public forum. I do not respond to questions asked in private messages.