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

时间:2015-11-27 12:21:11

标签: excel vba visio connector pins

有没有办法选择" pin"在这种方法中?:

{{1}}

我想连接两个形状,然后我想将第三个连接到创建的连接,但不是在开始时,我需要将它连接到第四个引脚。这就是我所拥有的: enter image description here
这就是我想要的: enter image description here

有什么想法吗?

1 个答案:

答案 0 :(得分:0)

为了获得形状的中心,我们必须使用这条线。

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

形状对象的中心位于C点[connectionsXfrom,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。