如何使用VBA统计Visio文档指定图层内的形状数量

你一开始设想的Layers.Count实现不了这个需求——这个属性是Layers集合的成员，返回的是当前页面下一共创建了多少个图层，和单个图层挂载了多少个形状完全无关，属于对象属性用错了场景。

Visio的图层是页级作用域对象，每个图层自带Shapes集合，集合内就是所有分配到该图层的形状，直接取这个集合的Count属性就能得到对应图层的形状数量，判断这个值是否为0就能知道图层有没有分配形状。

核心注意点 #

• 图层为页级作用域：同名图层在不同页面是独立对象，不存在全局跨页的图层，统计前必须先明确你要操作的页面
• 形状支持多图层归属：一个形状可以同时分配给多个图层，这种情况下该形状会在每个所属图层的计数中各被统计1次，是Visio的原生设计，不是统计错误
• 默认计数包含全层级形状：组形状内部的子形状如果被分配到对应图层，也会被计入总数；如果只需要统计顶层独立形状，需要额外加判断过滤组内子形状

可直接复用的VBA示例代码 #

' 统计指定页面指定图层的形状数量，返回-1代表图层不存在
Function GetLayerShapeCount(targetPage As Visio.Page, layerName As String, Optional countTopLevelOnly As Boolean = False) As Long
    Dim targetLayer As Visio.Layer
    Dim shp As Visio.Shape
    GetLayerShapeCount = -1
    
    ' 校验页面有效性
    If targetPage Is Nothing Then Exit Function
    
    ' 定位目标图层
    On Error Resume Next
    Set targetLayer = targetPage.Layers(layerName)
    On Error GoTo 0
    If targetLayer Is Nothing Then Exit Function
    
    ' 不需要过滤子形状的场景直接返回集合计数
    If Not countTopLevelOnly Then
        GetLayerShapeCount = targetLayer.Shapes.Count
        Exit Function
    End If
    
    ' 需要仅统计顶层形状的场景，遍历判断父形状
    GetLayerShapeCount = 0
    For Each shp In targetLayer.Shapes
        If shp.ParentShape Is Nothing Then
            GetLayerShapeCount = GetLayerShapeCount + 1
        End If
    Next
End Function

' 调用示例
Sub TestCount()
    Dim cnt As Long
    ' 统计当前活动页名为"流程节点"的图层形状总数，包含子形状
    cnt = GetLayerShapeCount(ActivePage, "流程节点")
    
    If cnt = -1 Then
        Debug.Print "目标图层不存在"
    ElseIf cnt = 0 Then
        Debug.Print "目标图层未分配任何形状"
    Else
        Debug.Print "目标图层形状总数：" & cnt
    End If
End Sub

扩展场景 #

如果需要跨所有页面统计同名图层的累计形状数，遍历文档的Pages集合，逐页调用上面的GetLayerShapeCount函数累加结果即可。

内容的提问来源于stack exchange，提问作者Robit010