Невозможно удалить ярлыки диаграммы Excel

Question

Я пытаюсь удалить все метки данных в диаграмме Excel для каждой серии, но каким-то образом мой код не удаляет ни одну из меток данных на диаграмме. Пожалуйста, дайте мне знать, если что-то не хватает в моем коде ниже. В настоящее время я использую Microsoft Office 365, и этот файл представляет собой xlsb.

Спасибо заранее и очень ценю вашу помощь.

Sub DeleteDataLabels()
Sheets("Sheet1").Select
Call UnprotectSheet
ActiveSheet.ChartObjects("Chart 2").Activate


SeriesCount = ActiveChart.SeriesCollection.Count
MsgBox SeriesCount

' To delete the code
For i = 1 To SeriesCount
ActiveChart.SeriesCollection(i).Select
ActiveChart.ChartArea.Select
If ActiveChart.SeriesCollection(i).HasDataLabels Then
            ActiveChart.SeriesCollection(i).DataLabels.Select
            Selection.Delete
End If
Next i
End Sub

Answer 1

Благодаря комментарию @ Рори. Замените оператор if строкой кода под комментарием.

 Sub DeleteDataLabels()

 Sheets("Sheet1").Select
 Call UnprotectSheet
 ActiveSheet.ChartObjects("Chart 2").Activate


 SeriesCount = ActiveChart.SeriesCollection.Count
 MsgBox SeriesCount

 'Replace the if statement with this line of code
 ActiveChart.ApplyDataLabels xlDataLabelsShowNone
 End Sub