View Single Post
Old 06-22-2010, 06:59 PM   #16
switchman2210
Enthusiast
switchman2210 has a complete set of Star Wars action figures.switchman2210 has a complete set of Star Wars action figures.switchman2210 has a complete set of Star Wars action figures.switchman2210 has a complete set of Star Wars action figures.switchman2210 has a complete set of Star Wars action figures.
 
Posts: 47
Karma: 416
Join Date: Aug 2009
Device: Black PRS-650 with lighted cover & Kindle DX.
Your could probably do most of the changes via a macro. I found the macro below in just a few minutes at http://en.allexperts.com/q/Microsoft...e-pictures.htm. With some minor changes it could probably be adapted to rest the picture size via size set in the page layout. I would expect that tables and styles could be changed appropriately.


Sub AllPictSize()
Dim PercentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape

PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp

For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
switchman2210 is offline   Reply With Quote