Question

如何检查图表是否有标签？目前图表出错，因为我试图删除不存在的标签。

Sub deltelabels()
Dim x As Integer

    ActiveSheet.ChartObjects("Chart 4").Activate

For x = 1 To 4
    ActiveChart.FullSeriesCollection(x).DataLabels.Delete
Next x
End Sub

Answer 1

从https://www.experts-exchange.com/questions/27542370/Check-for-existence-of-data-labels-first-chart-of-the-active-worksheet.html修改

Sub CheckChartLabels()
    Dim cht As Chart
    Dim ser As Series
    Dim HasLabels As Long

    Set cht = Sheets("Page 3").ChartObjects("Chart 4").Chart
    For Each ser In cht.SeriesCollection
        If ser.HasDataLabels Then ser.DataLabels.Delete
    Next

End Sub

Excel Graph，如果存在标签，则删除它们

1 个答案: