VBA将连接点添加到形状

Question

如何将连接点添加到形状？

我开始这个项目将常规矩形添加到页面并使用AutoConnect连接它们，因为每个连接都在矩形上创建了一个新的连接点。当我切换到圆角矩形时，没有创建新的连接点，并且连接器最终相互重叠。

我添加像这样的圆角矩形......

        Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Rounded rectangle"), 0, 0

我像这样自动连接......

        Dim vsoConnectorShape As Visio.Shape
        Set vsoConnectorShape = Visio.ActivePage.Shapes("Dynamic connector")
        vsoConnectorShape.CellsU("LineColor").Formula = "rgb(" + CStr(red) + ", " + CStr(green) + ", " + CStr(blue) + ")"

        shp1.AutoConnect shp2, visAutoConnectDirNone, vsoConnectorShape