macro & jpg's

[alexanderd]

being new to word macros, can some one help put me on the correct track.
i am trying to increase the size of a jpg so that it will be say 25 cm long
on a page there being up to 50 pages which will eventually be saved as a PDF
file. i am using vista buisness an office buisness

 

[Brian]

Would it be better to increase the size by % to maintain ratio?

Sub AllPictSize()
Dim PercentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 9)
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

 

[alexanderd]

thank you for your quick response, i will try it later and get back to you