VBA, выберите все диаграммы фильтра

Question

Как выбрать все для фильтров диаграммы?

Фильтрация в vba равна

  ActiveChart.ChartGroups(1).FullCategoryCollection(1).IsFiltered = True

, а фильтрация -

ActiveChart.ChartGroups(1).FullCategoryCollection(1).IsFiltered = False

Выше сделано для 1 точки данных, но как выбрать все для фильтрациив (или выберите все)

Answer 1

Вам нужно перебрать их все:

Sub UnfilterCategories()
  Dim iCat As Long, nCat As Long
  With ActiveChart.ChartGroups(1)
    nCat = .FullCategoryCollection.Count
    For iCat = 1 To nCat
      .FullCategoryCollection(iCat).IsFiltered = False
    Next
  End With
End Sub