Project VBAを掌握せよ：Task.Fontで視覚化する「真のプロジェクト・モニタリング」
MS ProjectのVBAを単なる「自動化ツール」だと思っているなら、それは大きな誤解だ。Projectのオブジェクトモデルは、Excelとは比較にならないほど重厚で、かつメモリ管理の重要性が極めて高い。
本稿では、`Task.Font`プロパティを軸に、単なる色変えに留まらない、エンタープライズ環境で耐えうる「動的可視化」のアーキテクチャを解き明かす。
—
1. オブジェクトモデルの深淵：なぜTask.Fontが重要か
Projectにおける`Task`オブジェクトは、単なる行データではない。それはガントチャート、ネットワーク図、リソースビューとリンクした「生きたデータ」だ。
特に`Task.Font`プロパティは、UIのレンダリングエンジンに直接介入する。多くの初心者は「とりあえずプロパティを叩く」が、これは危険だ。ProjectのUI再描画コストは高く、不適切なループ処理はメモリリークやアプリケーションのフリーズを招く。
伝説のアーキテクトが教える「再描画の作法」
大規模プロジェクトにおいて、`Task`ごとに`Font`を変更する際は、必ず`Application.ScreenUpdating`を制御し、一括処理のスコープを限定することが鉄則である。
—
2. 実装コード：パフォーマンスを意識した動的着色
以下は、進捗率が100%未満かつ期限を過ぎたタスクを「赤色・太字」に強制変換するロジックだ。ここでは、オブジェクトを明示的に解放し、メモリ負荷を最小限に抑える設計を採用している。
Option Explicit
‘ 伝説のアーキテクトによる、パフォーマンスを重視したタスク色付けルーチン
Public Sub ApplyTaskVisualGovernance()
Dim tsk As Task
Dim proj As Project
‘ 描画更新を一時停止して処理速度を劇的に向上させる
Application.ScreenUpdating = False
Set proj = ActiveProject
On Error GoTo Cleanup
For Each tsk In proj.Tasks
‘ 完了しておらず、期限を過ぎているタスクを判定
If Not tsk Is Nothing Then
If tsk.PercentComplete < 100 And tsk.Finish < Date Then
' Task.Fontプロパティへの直接アクセス
With tsk.Font
.Color = pjRed
.Bold = True
.Italic = True
End With
Else
' 条件外はデフォルトへ戻す（状態のクリーンアップ）
tsk.Font.Reset
End If
End If
Next tsk
Cleanup:
' オブジェクトの明示的解放（VBAでは自動だが、複雑な参照時は癖にしておくべき）
Set tsk = Nothing
Set proj = Nothing
' 描画再開
Application.ScreenUpdating = True
If Err.Number <> 0 Then
MsgBox “Critical Error: ” & Err.Description, vbCritical
End If
End Sub
—
3. シニアエンジニアが押さえるべき「極限の知見」
Windows APIの介入：なぜ必要か？
Project VBA単体では、ガントチャートのバー自体の「動的な色変更」には限界がある。もし、さらに高度な「条件付き書式をAPIレベルで制御したい」という要件が発生した場合、`User32.dll`を用いてウィンドウハンドルを取得し、`SendMessage`で`WM_PAINT`メッセージを制御する手法が必要になるケースがある。ただし、これはProjectの内部エンジンを破壊するリスクがあるため、最終手段として心に留めておいてほしい。
レガシー環境でのメモリ最適化
Projectファイルが数万行を超える場合、`For Each`によるタスク走査はメモリ断片化を招く。その場合、`Tasks.Count`を用いたインデックスアクセスへ切り替え、かつ定期的に`DoEvents`を挟むことで、OSに対するリソース開放の隙間を与えるのが「大人の作法」だ。
システム間連携の要諦
もし、この色付けロジックを外部システム（SQL Server上の進捗管理DBなど）と同期させるなら、VBAだけで完結させてはならない。
1. データ取得: ADODBを用いてDBから進捗を取得。
2. モデル反映: `Task.Text`フィールドなどを一時的に利用してステータスを保持。
3. 描画: 上記のスクリプトで、`Text`フィールドの値に基づいて`Font`を適用する。
この「データと表示の完全分離」こそが、数年先まで保守可能なシステムを構築する唯一の道である。
—
最後に：ツールに支配されるな、ツールを支配せよ
`Task.Font`を操ることは、プロジェクトの「混沌」に「秩序」を与える行為だ。しかし、自動化に溺れてはならない。コードは常にシンプルに、そしてプロジェクトの目的（納期遵守と品質向上）に忠実であれ。
もし、貴殿がこの先、数千行を超えるプロジェクト管理システムの設計に直面するなら、その時はまた私の扉を叩くといい。VBAの先にある、真のアーキテクチャの世界を教えよう。
