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



我正在通过VBA用户表单在我的页面上放置形状。其中,我需要删除一个"曲线"形状,该形状应连接两个指定的形状。

我在这里找到了如何直接创建连接,但我想要来自我的特定主控形状的形状,因为它有一些自定义数据属性。

我希望连接器形状的数据表中有一些字段,我可以在其中引用开始和结束形状? 找不到更有用的东西。

感谢您的任何提示!

从这里开始的解决方案

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")

最新更新