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 Alex
'
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

 

[Cindy M -WordMVP-]

Hi Alex,

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

On WHICH LINE of the code does this occur?

And which version of Word are we dealing with?

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Sep 30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail