这似乎应该是直截了当的,但我看到了一些奇怪的行为。我正在尝试根据标志对我的任务进行颜色编码。它似乎正确地为任务着色,但在处理过程中的某个时刻,被着色的初始任务被重置为黑色。它发生的任务似乎也相当不一致。这是我尝试执行此任务的方式(简化为最简单的形式):
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 个任务。有任何想法吗?