Is there a way to invoke an add shape command similar to what you get when
you press the tool bar buttons?

Instead of:
ActiveDocument.Pages(1).Shapes.AddShape (msoSomeShape, x, y, H, W)

Is there a way to add that shape by issuing the command that the tool bar
button does so that (in the case of simple shapes) your first click sets the
shape there, or (in the case of lines, polylines and polygons) your clicks
create initial, intermediate and terminal points?

I am trying to create a userform with buttons that will create these shapes,
then apply formatting to the shape once it is placed.

Cory