resize a selected picture in Word

[Alex]

Hi all,

I have writen the following macro to resize a selected picture in a Word document.
-------------------
Sub Resize()
'
' Macro1 Macro
' Macro recorded 10/16/2003 by AIRCOM International
'
Dim dist As Single
Selection.ShapeRange.LockAspectRatio = False
dist = CentimetersToPoints(17)
Selection.ShapeRange.Width = dist
dist = CentimetersToPoints(14)
Selection.ShapeRange.Height = dist

End Sub
---------------------
When i run the macro i get:
Run-time Error '70' Permission Denied

Can anyone help me please?
Regards,
Alex