Need macro to set all pictures in document to a certain size

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

oli merge - 20 Mar 2007 17:15 GMT

Hi,

i need a macro to set all pics to a certain size (in this case 4.5cm high
and 2.81cm wide).

I have tried resizing the pictures to the desired size manually first but
its no good because i cant find a prgram to do it that is free and doesnt
have limits on quality or amount of pictures in batch.

I already have a macro to resize all pics to a percentage of the original
size, so if you just tell me how to set an absolute size I can adapt that.

thanks

Reply to this Message

Lene Fredborg - 20 Mar 2007 21:29 GMT

Below you will find a macro that resizes all pictures in the active document
to the size you specified.

NOTE: If your pictures are not in the text layer (wrapping style “In line
with text” - set via Format > Picture > Layout tab) but floating (any other
wrapping style), you must change the “Dim…” line and the “For each…” line to
the following:

Dim oShape As Shape
For Each oShape In ActiveDocument.Shapes

The macro:

Sub ResizePictures()

Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
With oShape
'Change msoFalse to msoTrue to scale proportionally
.LockAspectRatio = msoFalse
.Width = CentimetersToPoints(2.81)
.Height = CentimetersToPoints(4.5)
End With
Next oShape
End Sub

Signature

Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word

> Hi,
>
[quoted text clipped - 9 lines]
>
> thanks

Reply to this Message

oli merge - 21 Mar 2007 10:01 GMT

cheers for your help lene. i ended up cheating and using .width = 87 etc
until I found the right dimensions, but I see now I could have just used the
centrimetres to points command.

Thanks again

> Below you will find a macro that resizes all pictures in the active document
> to the size you specified.
[quoted text clipped - 35 lines]
> >
> > thanks

Reply to this Message