Organization Chart Connecting lines not moving with nodes

[dkalel]

I am trying to automate our organizational chart slides based on information in an access database. Since some of the slides are pretty crowded, I need to move the subordinates closer together.

Problem is, when I do it through visual basic, the nodes move, but not the connecting lines. I am using the following simple line:

shpOrgChart.Diagram.Nodes(X).Shape.Top = NewLocation

where shpOrgChart is a variable of type "shape" holding the organizational chart object, X is the specific node number, and NewLocation is where I want the top of the node to be.

After running the program all of my nodes are placed correctly, but the connecting lines are still back where they started.

Manually moving the nodes results in the connecting lines moving properly, but this pretty much defeats the purpose of automating the chart.

I have tried using Sendkeys("{up}{down}&quot after selecting (.select) all of the nodes, but only the last node is correct when the program finishes.

Anyone know how I can (using VBA) force the connecting lines to the correct position?

dkalel

 

[SkipVought]

dkalel,

Why can't you set the Top, Left, Height, Width properties of each shape. The connectors will follow!

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[dkalel]

The connectors don't follow. When I'm done, the connectors are still where they were when the node was created.

dkalel

 

[SkipVought]

That's odd. I set up a test and the connectors followed the shapes without fail!

Post your code and corresponding scenerio.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com