#1
|
|||
|
|||
Resize images multiple times
The code below resizes all the images in a document to a fixed width & height, and then applies some properties to each image found.
It works well, with one drawback - it resizes the images only one time. I believe this is because the images are first converted from 'InlineShape' to 'Shape', and the second time you run the script, it will no longer find any 'InlineShape' image to convert. What could I do to apply those properties to the images, and then have them resized multiple times, in various sizes? Among other things, I tried adding 'oShape.ConvertToInlineShape' at the end of the loop, but without any success. Alex Code:
Dim oDoc As Document, oShape As InlineShape Set oDoc = Application.ActiveDocument For Each oShape In oDoc.InlineShapes oShape.Width = 200 oShape.Height = 200 oShape.Select Selection.Fields.Unlink Set os = oShape.ConvertToShape With os .WrapFormat.Type = wdWrapTopBottom .WrapFormat.AllowOverlap = False .Left = wdShapeCenter .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage End With Next oShape Set oDoc = Nothing |
#2
|
||||
|
||||
An inline shape is one which allows text wrapping or sits above of below text. Once you have converted to a shape, you can set it back to inline but your code to set text wrapping would be pointless as this is exactly what Inline shapes DON'T DO.
If you want to also catch Shapes then you need a second loop for Shapes eg Dim aShp as Shape For each aShp in oDoc.Shapes 'do stuff Next aShp
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Thank you, Andrew!
Eventually, I did manage to find a solution. I simply converted all the 'msoPicture' type of InlineShapes into Shapes, and then resized and applied those properties to all Shapes in the document. Alex |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
macro: insert muliple images and resize into given cells | marco83 | Excel Programming | 1 | 08-15-2018 09:16 AM |
How to automatically resize images and place them to neeeded positions | xerxox | Drawing and Graphics | 1 | 08-09-2018 02:44 PM |
Import images, resize them, and fit them to specific locations on the page | hysterical.useless | Drawing and Graphics | 8 | 01-30-2018 04:27 PM |
Help Creating Macro to Crop/Resize Images | ineedmacrohelp | Word VBA | 1 | 08-06-2015 06:46 AM |
Help with VBA to resize images | Yuffster | Word VBA | 2 | 01-30-2015 06:05 AM |