如何以编程方式重新路由 visio 中的连接器？

Question

我正在为 visio 2013 开发 VSTO 加载项。我需要重新路由连接器，因为图表很复杂并且包含很多步骤。自动路由的连接器没有清晰的路径。有没有办法以编程方式重新路由连接器？就像在visio应用程序中手动拖动连接点一样。

我阅读了一些 vba 文档 https://docs.microsoft.com/en-us/office/vba/api/visio.connect 但是 none 给了我洞察力。

Answer 1

你激励我尝试一下，因为我需要做类似的事情。这是我发现的一种方法。该子例程引用连接器形状，隐藏自动布线的线，添加新的几何部分，并手动调整该部分内的几个点（基于最初可见线的百分比 height/width）。您显然可以通过编程方式调整数量/位置。

Sub CustomRoutedConnector(shpConnectorShape As Shape)

    With shpConnectorShape
        'Hide the automatically routed connector line (still there, just hidden)
        .CellsSRC(visSectionFirstComponent, 0, 2).FormulaU = "TRUE"

        'Make a custom geometry section
        .AddSection visSectionFirstComponent + 1
        .AddRow visSectionFirstComponent + 1, visRowComponent, visTagComponent
        .AddRow visSectionFirstComponent + 1, visRowVertex, visTagLineTo
        .AddRow visSectionFirstComponent + 1, visRowVertex, visTagMoveTo

        'Set up the new geometry section rows (11,1 and 11,2 are the start and end rows)
        .CellsSRC(11, 0, 0).FormulaForceU = "TRUE"
        .CellsSRC(11, 0, 1).FormulaForceU = "FALSE"
        .CellsSRC(11, 0, 2).FormulaForceU = "FALSE"
        .CellsSRC(11, 0, 3).FormulaForceU = "FALSE"
        .CellsSRC(11, 0, 5).FormulaForceU = "FALSE"
        .CellsSRC(11, 1, 0).FormulaU = "0"
        .CellsSRC(11, 1, 1).FormulaU = "0"
        .CellsSRC(11, 2, 0).FormulaU = "0"
        .CellsSRC(11, 2, 1).FormulaU = "0"

        'Add two additional rows for demonstration (could be programatically 
        'adjusted to however many points you need)

        .AddRow visSectionFirstComponent + 1, 2, visTagLineTo
        .CellsSRC(11, 2, 0).FormulaU = "0"
        .CellsSRC(11, 2, 1).FormulaU = "0"

        .AddRow visSectionFirstComponent + 1, 3, visTagLineTo
        .CellsSRC(11, 3, 0).FormulaU = "0"
        .CellsSRC(11, 3, 1).FormulaU = "0"

        'Adjust the geometry of the rows (the doubles given are percentages of the height/width of the original connector)
        'I recommend stepping through this to see how it moves the points:
        .CellsSRC(visSectionFirstComponent + 1, 2, 0).FormulaU = ".5"
        .CellsSRC(visSectionFirstComponent + 1, 3, 0).FormulaU = ".5"
        .CellsSRC(visSectionFirstComponent + 1, 3, 1).FormulaU = ".5"
        .CellsSRC(visSectionFirstComponent + 1, 4, 0).FormulaU = "1"
        .CellsSRC(visSectionFirstComponent + 1, 4, 1).FormulaU = "1"

    End With

End Sub

这条自定义路线的终点仍然与起点和终点形状相关联。要完全杀死所有自动路由，请使用 .LayoutRoutePassive property of the page。（这可能会给你想要的东西，但需要一些修修补补）。

如何以编程方式重新路由 visio 中的连接器？

How to reroute the connector in visio programmatically?

c#

vba

visio