Add shape with custom styling?

[Cory]

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

 

[Cory]

My apologies, I meant to include that I am using Office XP with Publisher
2002 also.

Cory

 

[Cory]

OK, I have figured out how to invoke those commands via the buttons (e.g.
Publisher.CommandBars("BlockArrows").Controls("16").Execute). However I
still have to go in and manuallly set up the formatting. Is there a way that
I can tell the macro to pause until the shape has been placed to select it
and apply formatting?