Thanks for your help Paul,
It works for me.
I had to add the 'width' also, to keep the LockAspectRatio, but that is little extra code.
However it fails to run the line with:
Code:
If .ShapeRange.Count <> 0 Then
There is an Run-time error '4198' : Command failed,
In the immediate window the code
Code:
? Selection.ShapeRange.Count
gives the same error, but as far as I can see now I seem to be able to skip this part of the code completely. Am I right ?
Arnold