VBA code to trim a picture

[capitala]

I use pictures frequently on Ms Word 2003, I need a code to trim the picture from the top 0.5 cm each time.



How to do that using vba in word 2003?

thanks in advance

[macropod]

Hi capitala,

Are these pictures inserted in-line with text, or with text-wrapping (eg square)?

[capitala]

no, it's only a picture and no wrapping at all.
I insert it by clicking Insert-picture- from file

[macropod]

Try:

Sub CropIt()
On Error Resume Next
With Selection.InlineShapes(1)
  .LockAspectRatio = False
  With .PictureFormat
    .CropLeft = CentimetersToPoints(0.5)
    .CropRight = CentimetersToPoints(0.5)
    .CropTop = CentimetersToPoints(0.5)
    .CropBottom = CentimetersToPoints(0.5)
  End With
End With
End Sub