vba - Colour coding agile task boxes based on priority level

Question

I am new to MS projects and want to format task boxes within a sprint board so that the priority level assigns a color to the box. Is this possible and can anyone write the code for it (I don't know anything about coding)? Edit: I need to clarify, I am wanting to change the color of the sprint task boxes, not in a network diagram format. Apologies for the lack of clarity.

Sprint format

question from:https://stackoverflow.com/questions/66062239/colour-coding-agile-task-boxes-based-on-priority-level

Answer 1

Here is a basic example of how to format the boxes (nodes) in a network diagram view. This code sets the background color of the box based on the task's priority. The BoxFormat method can also format gridlines, border styles, etc.

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