Word picture object resize

Jeg har en del dokumenter hvoi der indgår billeder. Disse dokumenter kommer fra et andet operativsystem, og er oversat til Word. Billederne passer ikke længere i størrelse, ved at formattere dem og nulstille størrelsen, er alt ok. Hvordan gør man det i VB. Jeg har denne kode som finde billederne, men har ikke kunnet finde "nulstil" nogen steder.

Steen

Sub tilpas()
'
' tilpas Makro
' Makro indspillet 22-02-02 af Steen
For Each iShape In ActiveDocument.InlineShapes
   

    iShape.Fill.Visible = msoFalse
    iShape.Fill.Transparency = 0#
    iShape.Line.Weight = 0.75
    iShape.Line.Transparency = 0#
    iShape.Line.Visible = msoFalse
    iShape.LockAspectRatio = msoTrue
    'iShape.Height = 235.55
    'iShape.Width = 168.65
    iShape.PictureFormat.Brightness = 0.5
    iShape.PictureFormat.Contrast = 0.5
    iShape.PictureFormat.ColorType = msoPictureAutomatic
    iShape.PictureFormat.CropLeft = 0#
    iShape.PictureFormat.CropRight = 0#
    iShape.PictureFormat.CropTop = 0#
    iShape.PictureFormat.CropBottom = 0#
Next iShape

End Sub