[col]

I have copied some screen shots into word as drawings on o approx 200 pages
..need to resize all the drawings is there a way to resize all 200 pages in
one go

[Lene Fredborg]

Since I assume that your pictures are not the same size, my guess is that you
want to scale the pictures to a certain percentage of the current size.

Below you will find a macro that resizes all pictures in the active document
to the percentage you specify in the macro (change 50 to the desired
percentage).

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 ResizeAllPictures_Percentage()

Dim oShape As InlineShape
Dim nPercentage As Long

nPercentage = 50

For Each oShape In ActiveDocument.InlineShapes
With oShape
'Scale proportionally to the defined percentage
€˜Height is automatically changed when you change the width
.LockAspectRatio = msoTrue
.Width = (oShape.Width * nPercentage) / 100
End With
Next oShape
End Sub

If you need help on installing macros, see:
http://www.gmayor.com/installing_macro.htm

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


"col" wrote:

I have copied some screen shots into word as drawings on o approx 200 pages
.need to resize all the drawings is there a way to resize all 200 pages in
one go