如何使用Excel VBA按类别统计工作表特定形状数量

问题说明 #

• 现有功能：已完成根据数据录入结果自动在工作表中生成、展示对应形状的逻辑
• 现存问题：使用MsgBox ActiveSheet.Shapes.Count仅能返回活动工作表内所有形状的总数量，无法按自定义分类维度统计特定类别的形状数

实现方法 #

Shapes.Count本身不支持筛选参数，要实现分类统计，需要遍历所有形状，匹配你预先给形状设置的分类标记后累加计数，根据你标记类别的方式不同，可选择对应实现代码：

方式1：通过形状名称前缀区分类别 #

如果你在生成形状时，已经给同类别形状统一加了名称前缀（比如圆形类统一命名为Circle_序号、矩形类统一命名为Rect_序号），可直接通过名称匹配统计：

Sub 统计指定名称前缀类别的形状()
    Dim shp As Shape
    Dim catCount As Long
    ' 替换为你要统计的类别的名称前缀
    Dim targetPrefix As String: targetPrefix = "Circle_"
    catCount = 0
    
    For Each shp In ActiveSheet.Shapes
        If VBA.Left(shp.Name, VBA.Len(targetPrefix)) = targetPrefix Then
            catCount = catCount + 1
        End If
    Next
    
    MsgBox "当前类别形状数量：" & catCount
End Sub

方式2：通过可选文字（AlternativeText）标记类别 #

如果不想修改形状显示名称，可以在生成形状时给同类别形状设置统一的可选文字标记（比如给所有三角形类形状的可选文字设为Cat:Triangle），这种标记对用户不可见，不会影响前台展示，统计代码如下：

Sub 统计指定可选文字标记的形状()
    Dim shp As Shape
    Dim catCount As Long
    ' 替换为你要统计的类别的可选文字标记
    Dim targetTag As String: targetTag = "Cat:Triangle"
    catCount = 0
    
    For Each shp In ActiveSheet.Shapes
        If shp.AlternativeText = targetTag Then
            catCount = catCount + 1
        End If
    Next
    
    MsgBox "当前类别形状数量：" & catCount
End Sub

方式3：按形状固有类型统计 #

如果你要统计的是固定类型的自选图形（比如所有矩形、所有圆形），不需要额外打标记，可直接匹配形状的AutoShapeType属性统计，比如统计所有矩形的代码：

Sub 统计固定类型自选图形()
    Dim shp As Shape
    Dim catCount As Long
    catCount = 0
    
    For Each shp In ActiveSheet.Shapes
        ' 跳过非自选图形对象（比如图片、控件等）
        If shp.Type = msoAutoShape Then
            ' 判断是否为矩形类型，可替换为其他msoShapeType枚举值
            If shp.AutoShapeType = msoShapeRectangle Then
                catCount = catCount + 1
            End If
        End If
    Next
    
    MsgBox "矩形形状总数量：" & catCount
End Sub

提示：如果你是在生成形状的阶段就需要同步统计数量，可以直接在生成对应类别形状的代码逻辑里维护计数变量，不需要生成完成后再遍历统计，效率更高。

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