VBA: отображение С.Диагр. в зависимости от отбора в Свод.Табл

[Сергей Разумов]

Добрый день, ув. форумчане

Смоделируем ситуацию: имеется сводная таблица, по фильтру которой пользователь устанавливает отбор.
Требуется программно определить кол-во элементов, оставленных пользователем в отборе; если кол-во больше трех, нужно скрыть сводную диаграмму. Если же количество меньше либо равно трем, сводную диаграмму требуется вернуть на место.

Пример прилагается.

Заранее огромное спасибо!

[Сергей Разумов]

Так же интересует, как проверить, сняты ли отборы на срезе (slicer)?

[Сергей Разумов]

If ActiveWorkbook.SlicerCaches("....").FilterCleared = True
))