VBA Macro for MS Project (Color Coded WBS)

Question

Hi There,

I'm trying to create a Color Coded MS Project Schedule to looks similar to my P6 Schedule.
But I guess that is only possible using VBA Macros, right? Or there is any other way?

Is there any code that I could use to do this?

Color:

Project Summary Task - RGB : 255 51 47

WBS Level 01 - RGB : 0 91 0
WBS Level 02 - RGB : 67 135 135

WBS Level 03 - RGB : 255 184 113

WBS Level 04 - RGB : 215 235 255
WBS Level 05 - RGB : 0 128 192

WBS Level 06 - RGB : 242 197 57

Activity Level - White (Typical)

Answer 1

ThiagoBM2021,

Here ya go. I couldn't get your RBG colors to work, but this should give you a good start.

John

Sub HighlightSummaries()

SelectAll

EditClearFormats

For i = 1 To 7

    FilterEdit Name:="OLX", taskfilter:=True, Create:=True, OverwriteExisting:=True, \_

        FieldName:="summary", test:="equals", Value:="yes", ShowInMenu:=False

    FilterEdit Name:="OLX", taskfilter:=True, Operation:="and", \_

        NewFieldName:="outline level", test:="equals", Value:=CStr(i)

    FilterApply Name:="OLX"

    SelectAll

    If ActiveSelection > 0 Then

        If i = 1 Then Font32Ex Color:=16777215, CellColor:=11892014

        If i = 2 Then Font32Ex CellColor:=8630772  'salmon

        If i = 3 Then Font32Ex CellColor:=15652797 'light blue

        If i = 4 Then Font32Ex Color:=16777215, CellColor:=9851951 'dark blue

        If i = 5 Then Font32Ex CellColor:=49407 'light grey

        If i = 6 Then Font32Ex CellColor:=12566463  'purple

        If i = 7 Then Font32Ex Color:=16777215, CellColor:=10498160

    Else

        Exit For

    End If

Next i

FilterApply Name:="all tasks"

End Sub

Answer 2

ThiagoBM2021,

Yup, you need VBA to do that although you won't be able to get the colors down the left side.

To be clear, are you really after the WBS level or do you perhaps mean Outline Level? In your screen shot I see 8 outline levels, not 6.

John

Answer 3

Hi John,

Thanks for your repply.

Yes, no worries about the "dow on the left side", would be great already just for each level of the summary rows in this case.

The 6 Levels are enough, and yes I believe that would be the outline level as you said. In the real case, It will be more then one summary in each level, so I will have more than one in the same color/level.

And the activity would be always white.

Answer 4

Thank you John.
Really appreciate!