Thanks very much for coming back...........I appreciate your help, and do
believe I have a handle on it now.

Vaya con Dios,
Chuck, CABGx3


"JLGWhiz" wrote in message
...
Below is the basic method and sample code:

expression.AddShape(Type, Left, Top, Width, Height)
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

What the code does is to place the left edge of the rectangle (Shape) at
50
pixels from the left screen edge and the top edge of the rectangle 50
pixels
from the top screen edge while making the rectangle itself 100 by 200
pixels.
If you rotated the shape, the point of rotation would be the left, bottom
corner, but when you rotate it over 180 degrees clockwise, it will not get
closer than 50 pixels to the left screen edge.

Does this help?

"JLGWhiz" wrote:

I'm not sure if I really understand your query but my experience has
been
that the rotation is relative to a point x number of pixels from the
left
screen edge and y number of pixels from the top screen edge which the
user
can set when using the AddShape method. If this is the zero base point
you
refer to, it can be set by you when you add the shape in just about all
cases. This includes freeforms.

"CLR" wrote:

Hi All............
I know how to rotate a Shape from it's present orientation to so many
degrees of "increment"....this works fine for that

Sub Rotate15()
ActiveSheet.Shapes("Group 34").IncrementRotation 15.01
End Sub

What I need to know, is how to establish a base zero point for the
Shape,
and then have the macro rotate the Shape "TO" 15.01 degrees from that
base
point,, not just increment it from where it is now.....

TIA
Vaya con Dios,
Chuck, CABGx3