nicely placed text for shapes in an arc

J

Joe

I am using Visio 2002 and am placing Shapes on Visio pages using the following routine:

dX = dRadius * Cos(((2 * j - 1) * (dDegreeInc / 2)) * PI / 180) + (dPageWidth / 2)
dY = dRadius * Sin(((2 * j - 1) * (dDegreeInc / 2)) * PI / 180) + 2
Set vsShape = p.Drop(vsStencil.Masters(taItemData(ID_MASTER_NAME)), dX, dY)

The Shapes appear in an arc of radius dRadius; j goes from 1 to the number of shapes to be placed on the page (dDegreeInc is also a function of the number of shapes to be placed on a page).

THe trouble that I am having is that the shape's text isn't aligning itself with the shape. Iw ant the text to appear just outside of the shape. When the shape is on the right side of the page, I want the text to be to the right of the shape; when it is on the left side of the page, I want the text to appear on the left side of the shape; when the shape is on top of the page, I want the text to appear above the shape.

I ahve tried many combinations of the TxtPinX and TxtPinY, as well as many combinations of TxtLocPinX and TxtLocPinY and haven't had any luck with this one.

Does someone know how to do this?

TIA,
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top