Macro Color personalizado en tareas resumen para Microsoft Project

Varios de vosotros me habéis pedido que realizase un video explicando cómo crear una macro para cambiar de forma automática los colores de las tareas resumen de nuestro proyecto de Microsoft Project. En este video enseño como realizar la macro de forma que vosotros mismos podáis elegir el color que necesitéis en función de vuestra imagen. Espero que os guste.

Si queréis aprender a utilizar Microsoft Project os recomiendo este curso:

   Curso práctico de Microsoft Project Profesional 

Este es el código por si lo queréis copiar y pegar: (macro color personalizado project)

Sub Formato_Capitulos()
Dim OriginalTask As Long
Dim Color1 As String, Color2 As String, Color3 As String, Color4 As String
Dim T As Task
OriginalTask = ActiveCell.Task.ID

Color1 = RGB(0, 0, 0)
Color2 = RGB(204, 255, 51)
Color3 = RGB(204, 255, 51)
Color4 = RGB(0, 0, 0)

For Each T In ActiveProject.Tasks
    If Not T Is Nothing Then
        If T.Summary And T.OutlineLevel = 1 Then
            Application.SelectRow Row:=T.ID, RowRelative:=False
            Application.Font32Ex CellColor:=Color1
            Application.Font32Ex Color:=Color2
        ElseIf T.Summary And T.OutlineLevel = 2 Then
            Application.SelectRow Row:=T.ID, RowRelative:=False
            Application.Font32Ex CellColor:=Color3
            Application.Font32Ex Color:=Color4
        End If
    End If
Next T

EditGoTo ID:=OriginalTask
End Sub

Enlace contenido a youtube

https://youtu.be/rFOlZKu2d9U