Visio VBA：将线形连接到其他两个形状

Question

我正在通过VBA用户窗体在页面上放置形状。除其他外，我需要删除一个“曲线”形状，该形状应连接两个指定的形状。

我发现了如何直接创建连接here的方法，但是我想从我的特定母版中获取形状，因为它具有一些自定义数据属性。

我希望Connector-Shape的DataSheet中有一些字段可以引用开始和结束形状？找不到其他有用的东西。

感谢任何提示！

Answer 1

来自here

的解决方案

Dim shp As Visio.Shape 'connector
Dim src As Visio.Shape 'connect this
Dim aim As Visio.Shape 'to this

[...] 'Set shape variables

shp.Cells("BeginX").GlueTo src.Cells("PinX")
shp.Cells("EndX").GlueTo aim.Cells("PinX")