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