从连接器的引脚连接到另一个连接器的引脚

Question

这个方法有没有办法select"pin"？:

Application.ActiveWindow.Page.Shapes.ItemFromID(1).AutoConnect

我想连接两个形状，然后我想将第三个形状连接到创建的连接上，但不是一开始，我需要将它连接到第四个引脚上。这就是我所拥有的：
这就是我想要的：

有什么想法吗？

Answer 1

要获得形状中心，我们必须使用这条线。

Set object = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(objectId)
connectingXfrom = object .CellsU("PinX").Result("in")
connectingYfrom = object .CellsU("PinY").Result("in")

形状object的中心在点C[connectingXfrom, connectingYfrom]

接下来两行将连接器的第一个点移动到点 P[connectingXfrom, connectingYfrom]

Application.ActiveWindow.Page.Shapes.ItemFromID(connectorShapeId).CellsSRC(1, 4, 0).FormulaU = connectingXfrom
Application.ActiveWindow.Page.Shapes.ItemFromID(connectorShapeId).CellsSRC(1, 4, 1).FormulaU = connectingYfrom

如果我们想从连接1但接近对象2开始连接，我们需要做：

connectingXfrom = connectingXfrom - someDistanceValue

someDistanceValue 可以是例如 1.5
objectId 是对象 2 形状的 ID
connectorShapeId 是连接 2 形状的 ID。

从连接器的引脚连接到另一个连接器的引脚

Connection from connector's pin to another connector's pin

excel

vba

visio

connector

pins