MS Project VBA - Как найти текущий активный фильтр задач?

Question

Я хочу создать переключатель для включения фильтра (используя FilterApply Name: = "fName") и обратно, как только я могу найти способ проверить, какой фильтр применяется в настоящее время.

Кто-нибудь знает способ запроса действующего фильтра с помощью MS API?

Спасибо

Terran

    Sub Elite_Unbaselined_Tasks_View()

  ---> Problem Line If ActiveProject.TaskFilter = "Active Tasks With No Baseline" Then
            FilterApply Name:="All Tasks"
            FilterClear
    Else
        FilterApply Name:="Active Tasks With No Baseline"
    End If

End Sub

Answer 1

Объект проекта имеет свойство с именем CurrentFilter , которое будет возвращать имя примененного фильтра или «Все задачи», если фильтр не применен.

Sub Elite_Unbaselined_Tasks_View()

    If ActiveProject.CurrentFilter = "Active Tasks With No Baseline" Then
        FilterApply Name:="All Tasks"
        FilterClear
    Else
        FilterApply Name:="Active Tasks With No Baseline"
    End If

End Sub