VB6. Drawing a rectangle in MS Word 2000???

[ftpdoo]

I'm trying to draw a box in MS Word from VB code... I've recorded a macro to do this and then pasted the code into VBA as follows:


ActiveDocument.Shapes.AddShape(msoShapeRectangle, 157.05, 27.2, 81#, _
27#).Select


But I keep getting the following error:

"The specified value is out of Range"????


Any Help would be great,
Thnx,

Jonathan

 

[Databaseguy]

The last argument is the Anchor. Change the value to somewhere in the document that exsists. The default is where the cursor position is... Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[ftpdoo]

I've tryed this:

ActiveDocument.Shapes.AddShape msoShapeRectangle, 157.05, 27.2, 81, 27

and this:


.ActiveDocument.Shapes.AddShape msoShapeRectangle, 1,1,1,1

but i'm still getting the error.. "The Specified Value is out of Range"

Thnx