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