Scale Picture to 200% original size ?

[Jasbird]

How can I write a macro to scale picture to 200% original size ?

 

[Jasbird]

Hi Jasbird,

I used and inlineshape and both examples of the following code work.

With ActiveDocument.InlineShapes(1)
.ScaleHeight = 200
.ScaleWidth = 200
End With

OR, you can use a dialog box so that if you have to undo the action it's
only one undo (the above is two undos)

ActiveDocument.InlineShapes(1).Select
With Dialogs(wdDialogFormatPicture)
.ScaleX = 200
.ScaleY = 200
.Execute
End With

HTH,
Dave

Thanks Dave, hopefully I can figure out how to write the macros
I want now.