有没有办法在这种方法中选择“pin”?:
Application.ActiveWindow.Page.Shapes.ItemFromID(1).AutoConnect
我想连接两个形状,然后我想将第三个连接到创建的连接上,但不是一开始,我需要将它连接到第四个引脚。这就是我所拥有的:
这就是我想要拥有的:
任何想法?
为了获得形状中心,我们必须使用这条线。
Set object = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(objectId)
connectingXfrom = object .CellsU("PinX").Result("in")
connectingYfrom = object .CellsU("PinY").Result("in")
形状对象的中心在点 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