How do address a Connection Point's Type/C property in VBA?

[tngengineer]

I am trying to "walk the connection points" of my drawing. If a connection
point's type is Outward, I transfer data to the connected shape. If the
connection point's type is Inward, I retrieve data from the connected shape.

The trouble is, I cannot figure out how to access the connection point's
Type property programatically.

 

[JuneTheSecond]

visCnnctType might be a index to get direction, for ex.
For Each shp In ActivePage.Shapes
N = shp.RowCount(visSectionConnectionPts)
For I = 0 To N - 1
Set mycell = shp.CellsSRC(visSectionConnectionPts, _
visRowConnectionPts + I, visCnnctType)
Debug.Print mycell.Formula
Next
Next

 

[Paul Herber]

I am trying to "walk the connection points" of my drawing. If a connection
point's type is Outward, I transfer data to the connected shape. If the
connection point's type is Inward, I retrieve data from the connected shape.

The trouble is, I cannot figure out how to access the connection point's
Type property programatically.

You want to use the CellsSRC or CellU methods and the cell name is
visCnnctType.

 

[tngengineer]

Bingo!
Thank you JuneTheSecond

visCnnctType might be a index to get direction, for ex.
For Each shp In ActivePage.Shapes
N = shp.RowCount(visSectionConnectionPts)
For I = 0 To N - 1
Set mycell = shp.CellsSRC(visSectionConnectionPts, _
visRowConnectionPts + I, visCnnctType)
Debug.Print mycell.Formula
Next
Next