I am glad you figured out something useful to do with this, and that you realized it was just supposed to be sample code for instructional purposes.

Some people seemed to think the example itself was supposed to be for real-world situations! (Hehehe I’m just teasing Art Braune!)

If people are wondering how to glue to specific connection points, then here’s some more info.

Say we’ve got two shapes. One has a connection point named “out” and the other has a connection point named “in”. The cell names for these points would look like:

Shape 1
Connections.out (or “.out.x”)
Connections.out.y

Shape 2
Connections.in (or “.in.x”)
Connections.in.y

You can glue a connector to the specific points by using these cell names:

// Connect its Begin to the ‘From’ shape: shpConn.get_CellsU(“BeginX”).GlueTo(shpFrom.get_CellsU(“Connections.out”));

// Connect its End to the ‘To’ shape: shpConn.get_CellsU(“EndX”).GlueTo(shpTo.get_CellsU(“Connections.in”));

- Lars

i just want to connect my shapes to each other…

You can get a page a number of ways:

dim pg as Visio.Page
Set pg = Visio.ActiveDocument.Pages.Item(3) ‘…index
Set pg = Visio.ActiveDocument.Pages.Item(“Page-1″) ‘…name

You can loop through all pages like this:

For Each pg in doc.Pages
…
Next pg

- Chris

i looked over the resources but still havent figured it out. I am not looking to learn vba, I just want to run this one script. Do I need to change variables in your script? Like since I’ve named my pages should I change the “pg” in “Call m_ConnectAllShapes(pg)” to the name of one of my pages?

help?
gabriel

Well, that’s a big subject to cover, but I can point you to some articles that might help:

John Goldsmith’s visLog has a nice introductory article to get you going on Visio’s ShapeSheet and VBA – Visual Basic for Applications – coding. See this article: Just for starters

Also, a few articles on Visio Guy will be of help:
VBA Macro Security
Run VBA Code When Documents Open

I have never used VBeditor before and I am trying to use your script. I was able to insert the script in the Visual Basic Editor through Visio 2007 but then I am not sure what to do after that. I chose the macro after this step but it didnt do anything. Can you explain to this dummy how to get it going?

thanks!

Well storage is cheap these days…

…and like I mentioned above, it might be a good piece of code to start with.

A Visio developer could modify the shape-filtering in m_shapesToConnect to do something a bit more useful – like connect all Routers together or something.

- Chris