using drawing objects in word

  • Thread starter Thread starter col
  • Start date Start date
C

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
 
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
 
Back
Top