如何在Microsoft Project VBA中获取任务栏颜色

Microsoft Project的VBA API确实没有提供直接读取甘特图任务栏颜色的内置方法——官方只开放了GanttBarFormatEx这类用于设置颜色的接口，这也是你查文档找不到相关属性的原因。以下是两种可行的替代方案：

方案一：维护自定义颜色映射记录 #

在你通过GanttBarFormatEx设置任务栏颜色时，同步把任务ID和对应的颜色值存储起来，后续需要获取时直接查询这个记录：

示例代码（使用VBA字典） #

' 声明全局字典存储任务ID与颜色的映射
Private taskBarColors As New Dictionary

' 设置任务栏颜色并同步记录
Sub SetTaskBarColorAndRecord(CurrentId As Integer, myColor As Long)
    GanttBarFormatEx TaskID:=CurrentId, GanttStyle:=7, MiddleColor:=myColor
    ' 更新字典记录
    If taskBarColors.Exists(CurrentId) Then
        taskBarColors(CurrentId) = myColor
    Else
        taskBarColors.Add CurrentId, myColor
    End If
End Sub

' 获取指定任务的任务栏颜色
Function GetTaskBarColor(TaskId As Integer) As Long
    If taskBarColors.Exists(TaskId) Then
        GetTaskBarColor = taskBarColors(TaskId)
    Else
        ' 返回默认颜色（可根据需求调整）
        GetTaskBarColor = RGB(217, 217, 217)
    End If
End Function

如果需要持久化记录（比如关闭Project后仍能保留），可以把颜色值写入任务的自定义字段（比如文本字段或数字字段），示例：

' 设置时写入自定义字段
Sub SetTaskBarColorAndSave(CurrentId As Integer, myColor As Long)
    GanttBarFormatEx TaskID:=CurrentId, GanttStyle:=7, MiddleColor:=myColor
    ' 写入任务的自定义数字字段（这里用Number1，可按需选择其他字段）
    ActiveProject.Tasks(CurrentId).Number1 = myColor
End Sub

' 从自定义字段读取颜色
Function GetTaskBarColorFromCustomField(TaskId As Integer) As Long
    GetTaskBarColorFromCustomField = ActiveProject.Tasks(TaskId).Number1
End Function

方案二：通过甘特图样式间接获取 #

如果任务使用的是预设的甘特图样式（即GanttBarFormatEx中的GanttStyle参数），可以通过查询该样式的颜色属性来间接获取任务栏颜色——同一样式下的任务栏颜色是统一的：

' 获取指定样式的任务栏中间颜色
Function GetGanttStyleColor(styleId As Integer) As Long
    Dim ganttStyle As GanttBarStyle
    Set ganttStyle = ActiveProject.GanttBarStyles(styleId)
    GetGanttStyleColor = ganttStyle.MiddleColor
End Function

' 使用示例：获取任务ID=5的任务栏颜色（假设它使用样式7）
Sub GetTaskColorByStyle()
    Dim taskColor As Long
    taskColor = GetGanttStyleColor(7)
    MsgBox "任务栏颜色RGB值：" & taskColor
End Sub

注意：这个方案只适用于任务使用预设样式且未单独修改颜色的场景，如果任务被单独设置了颜色（覆盖了样式默认值），此方法无法获取到实际显示的颜色。

内容的提问来源于stack exchange，提问作者Vincent ISOZ