Changing background row color according to task levels in MS Project VBA
问题 Hello I have been trying to figure out a code, so as to color different rows depending upon their task levels. I am new to VBA in MS Project. I have a code which I found online, but it only colors the text in the task column. Sub ColorFormatOL() Dim t As Task Dim i As Integer SelectTaskColumn i = 0 For Each t In ActiveSelection.Tasks If Not t Is Nothing Then i = i + 1 If t.Summary Then SelectRow row:=i, Columrowrelative:=False Select Case t.OutlineLevel Case 1 FontEx Color:=pjRed Case 2