Hi Guys:

Actually, you CAN draw autoshapes- I would have answered differently 48
hours ago, but after rifling though a neat, small MS Word book I just
purchased called "Writing Word Macros" by O'Reilly, they dedicated a whole
chapter to this issue. In fact, you can even animate the damn things... very
cool!

You have to go towards the back of the book, to appendix B: The Shape
Object. Here is a sample code where you would draw 2 shapes, shSquare (a
dark square) and shRect (a shaded rectangle):

Dim shSquare As Shape
Dim shRect As Shape
Dim rng As Range

Set rng = Selection.Range
Set shSquare = ActiveDocuments.Shapes.AddShape(msoShapeRectangle, 0, 0, 72,
72, rng)
Set shRect = ActiveDocuments.Shapes.AddShape(msoShapeRectangle, 0, 0, 144,
36, rng)

shSquare.Fill.ForeColor.RGB = RGB(196, 196, 196)
shRect.Fill.ForeColor.RGB = RGB(216, 216, 216)

etc etc etc

You can create shapes, and also work directly with autoshapes- they list
over 100 MsoAutoShapeType constants that support this method.

If you use the "delay" method you can then turn the autoshaps into an
animated show.

Regards,
AL