Thanks.
As usual, you came through again!
Peter
>With oPicture
> .LockAspectRatio = -1
> .Width = 50 * .Width / .Height
> .Height = 50
>endwith
>PS: 50 is in points, if needed word has methods to convert it to and from other units.
>Cetin