这个问题我之前折腾过好一会儿，确实MS Project的Task对象没有直接提供Collapsed属性，不过咱们可以绕个小弯子实现这个需求，亲测在2016/2019/365版本都能用！

核心思路 #

当摘要任务处于折叠状态时，它的所有子任务会被自动隐藏（在甘特图、任务工作表这类任务类视图中），所以咱们可以通过子任务的可见性反向判断摘要任务的折叠状态。

基础版实现代码 #

先给一个最简洁的自定义函数，适合大多数常规场景：

Function IsTaskCollapsed(t As Task) As Boolean
    ' 先排除非摘要任务的情况
    If Not t.Summary Then
        IsTaskCollapsed = False
        Exit Function
    End If
    
    ' 没有子任务的摘要任务，谈不上折叠/展开
    If t.OutlineChildren.Count = 0 Then
        IsTaskCollapsed = False
        Exit Function
    End If
    
    ' 核心判断：第一个子任务不可见 → 摘要任务折叠
    IsTaskCollapsed = Not t.OutlineChildren(1).Visible
End Function

代码说明 #

1. 先校验输入的任务是不是摘要任务，非摘要任务直接返回False
2. 如果摘要任务没有子任务，也直接返回False（毕竟没东西可折叠）
3. 利用OutlineChildren(1)获取第一个子任务，通过它的Visible属性反向判断：
   • 当摘要任务折叠时，子任务被隐藏 → Visible = False → 函数返回True
   • 当摘要任务展开时，子任务可见 → Visible = True → 函数返回False

调用示例 #

你可以在宏里这样调用这个函数，快速测试：

Sub CheckTaskCollapsedStatus()
    Dim targetTask As Task
    
    ' 替换成你要检查的摘要任务（这里用选中的任务举例）
    Set targetTask = ActiveSelection.Tasks(1)
    
    If IsTaskCollapsed(targetTask) Then
        MsgBox "任务《" & targetTask.Name & "》目前是折叠状态！"
    Else
        MsgBox "任务《" & targetTask.Name & "》目前是展开状态！"
    End If
End Sub

进阶版：避免误判的优化方案 #

如果你的场景中可能存在手动隐藏子任务的情况（不是因为摘要折叠），基础版可能会误判。这时可以改成检查所有子任务的可见性：

Function IsTaskCollapsed_Advanced(t As Task) As Boolean
    If Not t.Summary Or t.OutlineChildren.Count = 0 Then
        IsTaskCollapsed_Advanced = False
        Exit Function
    End If
    
    Dim childTask As Task
    Dim allChildrenHidden As Boolean
    allChildrenHidden = True
    
    ' 遍历所有子任务，只要有一个可见，说明摘要任务是展开的
    For Each childTask In t.OutlineChildren
        If childTask.Visible Then
            allChildrenHidden = False
            Exit For
        End If
    Next
    
    IsTaskCollapsed_Advanced = allChildrenHidden
End Function

注意事项 #

• 这个方法依赖于当前视图的显示状态，请确保在任务类视图（甘特图、任务工作表、任务分配状况等）中运行，在资源视图里会失效
• 如果你的视图应用了筛选器，可能会影响Visible属性的判断，建议在无筛选的状态下使用