基于优先级的颜色编码敏捷任务框

问题描述

我是 MS 项目的新手，想在 sprint 板中格式化任务框，以便优先级为框分配颜色。这是可能的，任何人都可以为其编写代码（我对编码一无所知）？编辑：我需要澄清一下，我想更改冲刺任务框的颜色，而不是网络图格式。为不够清楚而道歉。

Sprint format

解决方法

以下是如何在网络图视图中格式化框（节点）的基本示例。此代码根据任务的优先级设置框的背景颜色。 BoxFormat 方法还可以格式化网格线、边框样式等。

Sub FormatBoxes()

    ViewApply Name:="Network Diagram"
    
    Dim t As Task
    For Each t In ActiveProject.Tasks
        Select Case t.Priority
            Case Is <= 100
                BoxFormat TaskID:=t.ID,BackgroundColor:=pjFuchsia
            Case Is <= 300
                BoxFormat TaskID:=t.ID,BackgroundColor:=pjBlue
            Case Is <= 500
                BoxFormat TaskID:=t.ID,BackgroundColor:=pjYellow
            Case Else
                BoxFormat TaskID:=t.ID,BackgroundColor:=pjRed
        End Select
    Next t

End Sub