Microsoft Project 매크로에서 색 지정 작업

Question

이것은 직설적 인 것처럼 보이지만 이상한 동작이 나타납니다. 플래그를 기반으로 작업을 코드화하려고합니다. 작업을 올바르게 채색하는 것으로 보입니다. 그러나 처리 중 어느 시점에서 초기 작업은 검정으로 재설정됩니다. 그 일은 상당히 불일치하는 것 같습니다.

Sub ColorTasks() 
    Dim t As Task 
    For Each t In ActiveProject.Tasks 
     SelectRow t.ID, RowRelative:=False 
     Font32Ex Color:=2366701 
    Next 
End Sub 

이 코드는 작은 데이터 세트에 대한 잘 작동하는 것 같다,하지만이 프로젝트는 약 2,000 작업이 포함되어 있습니다 : 여기 내가이 작업을 수행하기 위해 (IT 단순화를 barest 양식을 것) 시도하고있다 방법입니다. 어떤 아이디어?

Answer 1

그래, 난 너무 비슷한 문제 ::

For Each t In tsks 
    Select Case t.Text1 
     Case "COMPLETE" 
      SelectRow Row:=t.ID, RowRelative:=False 
      Font32Ex CellColor:=&659B59 
     Case "NOT STARTED" 
      SelectRow Row:=t.ID, RowRelative:=False 
      Font32Ex CellColor:=&862525 
     Case "IN PROGRESS" 
      SelectRow Row:=t.ID, RowRelative:=False 
      Font32Ex CellColor:=&3A3AD4 
    End Select 
Next t 

에 따르면 데 : http://msdn.microsoft.com/en-us/library/ff863572.aspx이 작동합니다을, 그러나 나는 모든 시간 구문 오류를 얻을. 이 방법을 사용할 수있는 유일한 방법은 16 색으로 만 제한하는 FontEx 메서드를 사용하는 경우입니다.

Answer 2

나는 이것이 오래된 문제라는 것을 알고 있지만 비슷한 문제가있는 사람에게 유용 할 수 있기를 바랍니다. .

실수는 당신이 16 진수 전에 'H'를 추가 잊어 버린 것을, 그래서 제대로이 있어야한다 :

Font32Ex CellColor:=&H3A3AD4 
etc