编写VBA宏删除饼图0%数据标签失败，如何正确判断数值？

你的代码无法运行的核心问题有两个：

1. Selection.Value判断逻辑错误：DataLabel的Value是带格式的文本（比如"0%"），不是原始数值，直接和0比较永远不匹配；
2. 依赖Select/Selection的操作不稳定，容易受当前选中状态影响，且效率极低。

以下是两种可靠的解决方案：

方案1：处理单个活动饼图 #

直接遍历饼图数据点，从数据源获取原始数值判断，避免解析标签文本：

Sub HideZeroDataLabels()
    Dim cht As Chart
    Dim srs As Series
    Dim i As Integer
    
    ' 获取当前活动图表
    Set cht = ActiveChart
    ' 饼图一般只有一个数据系列
    Set srs = cht.FullSeriesCollection(1)
    
    ' 先确保所有数据标签处于显示状态（避免遗漏）
    srs.DataLabels.ShowValue = True
    
    ' 遍历每个数据点
    For i = 1 To srs.Points.Count
        ' 直接从系列数值数组取原始值判断
        If srs.Values(i) = 0 Then
            ' 隐藏标签（比删除更灵活，后续可恢复）
            srs.Points(i).DataLabel.Visible = False
        Else
            srs.Points(i).DataLabel.Visible = True
        End If
    Next i
End Sub

方案2：批量处理工作表中所有饼图 #

如果需要一次性处理当前工作表内的所有饼图：

Sub HideZeroLabelsInAllPieCharts()
    Dim shp As Shape
    Dim cht As Chart
    Dim srs As Series
    Dim i As Integer
    
    ' 遍历工作表内所有形状
    For Each shp In ActiveSheet.Shapes
        ' 判断是否为饼图类型的图表
        If shp.HasChart Then
            Set cht = shp.Chart
            If cht.ChartType = xlPie Or cht.ChartType = xlPieExploded Then
                Set srs = cht.FullSeriesCollection(1)
                srs.DataLabels.ShowValue = True
                
                For i = 1 To srs.Points.Count
                    If srs.Values(i) = 0 Then
                        srs.Points(i).DataLabel.Visible = False
                    Else
                        srs.Points(i).DataLabel.Visible = True
                    End If
                Next i
            End If
        End If
    Next shp
End Sub

关键注意事项 #

• 优先用Visible = False替代Delete：隐藏标签后，后续数据更新时可快速恢复显示，比删除更灵活；
• 直接访问srs.Values(i)获取原始数值：避免解析标签文本的格式问题（比如百分比、小数的不同显示）；
• 完全抛弃Select/Selection：直接操作Chart/Series/Point对象，代码更稳定，运行速度提升明显（尤其处理大量图表时）。

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