获取连接器层

Question

我可以在vba中获得连接器分配到的层的名称吗？

我用像这样的形状来做这件事

ActivePage.Shapes(1).layer(1)

现在我正在寻找类似的东西，但连接器。

Answer 1

我不完全清楚你的问题，但连接器没有什么特别之处——它们仍然只是形状。因此，如果你知道目标形状和图层的索引，那么你可以使用上面的代码。

Visio中的形状也可以属于多个层（层的工作方式与Photoshop不同），因此您可能需要先获取层数，然后遍历每个层。例如：

Sub CheckLayers()
    Dim shp As Visio.Shape
    Dim i As Integer
    For Each shp In ActivePage.Shapes
        Debug.Print shp.NameU
        For i = 1 To shp.LayerCount
            Debug.Print "  " & shp.Layer(i).Name
        Next i
        Debug.Print ""
    Next shp
End Sub

此外，根据您要做的操作，您可能希望利用Page.CreateSelection方法返回基于特定层上形状的选择。以下是Visio SDK的一个非常轻微的修改版本：

Public Sub CreateSelection_Layer_Example()
 Dim vsoLayer As Visio.Layer
 Dim vsoSelection As Visio.Selection
 Set vsoLayer = ActivePage.Layers.ItemU("Connector")
 Set vsoSelection = ActivePage.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, vsoLayer)
 'Note that you don't have to pass the selection object to
 'the ActiveWindow Selection property - you can just work
 'with it directly if you want to
 Application.ActiveWindow.Selection = vsoSelection
End Sub

如果您使用动态连接器，它会自动分配给一个名为"连接器"的层。