Professional Development with Visio® 2000

Getting the Cell to Glue

After getting references to the SmartShape symbols in question, the first thing we need to do is get a reference to A's glueable entity. This entity can be a control handle, a begin point, an end point, or the edge of a SmartShape symbol. You need to obtain a reference to either the X ordinate or the Y abscissa of the coordinate pair that makes up the entity to hold the proper reference.

The code for getting a reference to a control handle on an Organizational Chart Position SmartShape symbol looks like the following:

Dim shpObj As Visio.Shape
Dim celObj As Visio.Cell
Set shpObj = Visio.ActivePage.Shapes.Item("Position")
Set celObj = shpObj.Cells("Controls.X1")

The code for getting a reference to an end point on a Visio ...