Visio vba 将动态连接器连接到连接点

Question

我在连接链接的动态连接器时遇到一些问题，该连接器实际上连接到预定义的连接点，而不仅仅是连接到顶部。

我的主人有一些文本框在左边，一些在右边。当我自动连接到这些文本框时，除了第一个和最后一个之外，它们都连接良好。它们没有像其他连接到侧面，而是连接到盒子中间的顶部和底部，这破坏了视觉效果。即使在旁边定义了一个连接点。

我一直在考虑使用 GlueTo 手动连接到连接点，但我不知道如何寻址连接点。

Set vsoConnectorShape = ActiveDocument.Masters.ItemU("Dynamic connector")
Set BoxShape = ActivePage.Shapes(i)
Set DevShape = ActivePage.Shapes(j)

NewRow = DevShape.AddRow(visSectionConnectionPts, visRowLast, visTagDefault)
DevShape.CellsSRC(visSectionConnectionPts, NewRow, visX).Formula = "Width*0"
DevShape.CellsSRC(visSectionConnectionPts, NewRow, visY).Formula = "Height*0.5"

DevShape.AutoConnect BoxShape, visAutoConnectDirLeft, vsoConnectorShape

所以我的实际问题是如何连接到连接点而不是形状本身？

Answer 1

您可以粘贴连接器 .Cells("BeginX") 或 .Cells("EndX")

到最近的形状连接器：Shape.Cells("PinX")
或选定的连接器：Shape.CellsSRC(visSectionConnectionPts, row, column)

可用连接点的数量取决于您的形状类型
如果您单击形状并通过鼠标右键单击打开其 ShapeSheet，您将找到一个部分 "Connection Points"。此 table 的每一行代表一个连接点 - 单击 table 中的行并查看在您的绘图中选择了哪一个。
CellSRC
使用以 0 开头的行号列号不相关，可以是 0 或 1 = visCnnctX 或 visCnnctY
或者只捕获与宏记录器的手动连接
并在代码中搜索 e。 g.
CellSRC(7, 0, 0) 7 = visSectionConnectionPts，0 = 第一个连接点，0

Dim myConnector As Visio.Shape

' drop it somewhere
Set myConnector = ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 1, 10)

' connect it to the nearest connection point of a shape (varies if you drag)
myConnector.Cells("BeginX").GlueTo BoxShape.Cells("PinX")

' connect it a fixed connection point (example if shape has 4 points)
myconnector.Cells("BeginX").GlueTo _
    Boxshape.CellsSRC(visSectionConnectionPts, 0, 0)  ' left                  
' .CellsSRC(visSectionConnectionPts, 1, 0)  ' right
' .CellsSRC(visSectionConnectionPts, 2, 0)  ' top
' .CellsSRC(visSectionConnectionPts, 3, 0)  ' bottom

Visio vba 将动态连接器连接到连接点

Visio vba Connecting a dynamic connector to a connection point

vba

visio