auto aligning shapes in a circle

Full credit goes to Chris Roth (aka Visio Guy)

John... Visio MVP
"WapperDude" wrote in message
...
The macro associated with the Circle the Wagons post will place a selected
shape in either a circle or in an arc. The latest incarnation adds
rainbow
color option.

John's code? Chris' code? I think the history of the polar array macro
is
the original written by Chris and posted on John's site. It is the basis
for
the arc array macro, which has added error checking, options, and is
posted
on Chris' site. Funny world, eh?

For the present application, either the Polar or Arc macros should work
fine.

Wapperdude



"Chris Roth [Visio MVP]" wrote:

Some of my forum readers (most credit to "wapperdude"!) have been
dinking around with this, starting with John's code, I think.

Have a look at this thread:

Circle up the wagons, the arc is here!
href="http://visguy.com/vgforum/index.php?topic=566.msg2396#msg2396

And on a related note for those who stumble upon this thread:

Circular Text Generator (version 2)
http://www.visguy.com/2008/01/05/cir...tor-version-2/


--
Hope this helps,

Chris Roth
Visio MVP


Visio Guy: Smart Graphics for Visual People

Articles: http://www.visguy.com
Shapes: http://www.visguy.com/shapes
Dev: http://www.visguy.com/category/development/
Forum: http://www.viguy.com/vgforum

John... Visio MVP wrote:
Thanks for pointing that out. I have added a request to my to-do list
to
add some code to use the selection rather than repeatedly dropping a
specific shape.

(Or it is another excuse to dust off the blog. ;-) )

John...

"Mighty" wrote in message
...
Beautiful, that does the trick nicely.

For anyone who comes across this thread in their own desperate hour
(Visio 2007, but shouldn't be too different in 2003):


1) Open a Visio document. Select the shape (abovementioned code
doesn't arrange existing ones, it takes a sample shape, copies it x
times and arranges it around the circle you specify the dimensions
of).

2) http://visio.mvps.org/VBA.htm, scroll down to Polar Array. Select
the code and ctrl+c to the clipboard. Go to Tools -- Macro --
Visual Basic Editor. Double click on the "ThisDocument" object for
your Visio Drawing. Paste code from your clipboard. Close the
editor.

3) In the Visio window (with your sample shape selected), go to Tools
-- Macro -- ThisDocument -- Polar Array. Answer the prompts (#
of items to place, size of circle, angle of first item on circle), and
you're done.




On Aug 3, 1:16 pm, "AlEdlund" wrote:
It has to be done with code. John Marshall has some code on his site
(visio.mvps.org) for polar arrays.
al

"Mighty" wrote in message

...

I'm doing up a couple of network diagrams, and one of our networks
is
a hub/spoke topology. Is it possible to select a bunch of shapes,
and automatically lay them out in a circle? I can do it manually,
but getting the spacing right is killing me... there's 150+ shapes
to
layout!