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

project object具有一个名为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