Project VBAの深淵へ：WBSを自在に操る「再帰的アウトライン処理」の極意
こんにちは。プロジェクト管理の現場で「手作業の書式設定」に時間を溶かしていませんか？
Microsoft Project（MS Project）は、ただの工程管理ソフトではありません。VBAというエンジンを搭載した、強力なデータ解析プラットフォームです。今回は、多くのエンジニアが躓く「Taskの階層構造（WBS）」をプログラムで制御し、視覚的に美しいプロジェクト計画表を自動生成する技術を伝授します。
「マクロの記録」ボタンがないProjectにおいて、オブジェクトモデルを理解することは、まさに伝説への第一歩です。さあ、一緒に深淵を覗いてみましょう。
—
1. なぜ「OutlineLevel」が重要なのか？
Projectのタスクには「親」と「子」の関係があります。これをプログラムから制御するのが `OutlineLevel` プロパティです。
- OutlineLevel = 1: プロジェクトの最上位（フェーズの親）
- OutlineLevel = 2: サブフェーズ
- OutlineLevel = 3: 個別の作業タスク
これらを `For Each` ループで回すだけなら簡単ですが、複雑なプロジェクトでは「階層構造を意識した再帰的な処理」や「属性に応じた動的な判定」が求められます。今回は、階層の深さに応じてフォントの色や太さを自動で変える、実用的なアルゴリズムを実装します。
—
2. 実践：WBS階層に応じた自動書式設定コード
このコードは、現在開いているプロジェクトの全タスクを走査し、その階層（OutlineLevel）に応じてスタイルを自動適用します。
Sub ApplyWBSFormatting()
Dim tsk As Task
‘ プロジェクト内の全タスクをループ処理
For Each tsk In ActiveProject.Tasks
‘ 削除されたタスクや空の行を除外
If Not tsk Is Nothing Then
‘ 階層の深さで分岐させる（Select Caseは美しいコードの基本）
Select Case tsk.OutlineLevel
Case 1
‘ 第1階層：プロジェクトの柱（太字・青色）
Call SetTaskStyle(tsk, True, &HFF0000)
Case 2
‘ 第2階層：サブフェーズ（太字・濃い灰色）
Call SetTaskStyle(tsk, True, &H808080)
Case Else
‘ 第3階層以降：個別の作業（標準）
Call SetTaskStyle(tsk, False, vbBlack)
End Select
End If
Next tsk
MsgBox “WBSの視覚化が完了しました！”, vbInformation
End Sub
‘ 汎用的な書式設定プロシージャ（DRY原則：Don’t Repeat Yourself）
Sub SetTaskStyle(t As Task, isBold As Boolean, color As Long)
‘ Fontオブジェクトに直接アクセスする際はViewの更新に注意
t.Font.Bold = isBold
t.Font.Color = color
End Sub
—
3. ここをクリアすれば一人前！陥りやすい罠
初学者が必ず通る「壁」が2つあります。ここを理解すれば、あなたのコードは格段に安定します。
① `Nothing` のチェックを怠らない
ProjectのTaskコレクションは、途中の行が削除されると `Nothing`（空）になることがあります。ループ内で `If Not tsk Is Nothing Then` を入れないと、予期せぬエラーでマクロが強制終了します。これは鉄則です。
② 画面の描画更新（ScreenUpdating）
大規模なプロジェクトで数千のタスクを更新する場合、処理のたびに画面が再描画されると非常に低速になります。プロの現場では、処理の冒頭に `Application.ScreenUpdating = False` を入れ、最後に `True` に戻すのが作法です。
—
4. 次なるステップ：再帰処理への挑戦
上記のコードは「上から下へ」の処理ですが、より高度な開発では「特定の階層配下にあるすべての子タスクを操作する」という再帰アルゴリズムが必要になります。
「親タスクが選択されたら、その配下の子タスクをすべて折りたたむ」といった機能は、`Task.OutlineChildren` プロパティを使って実装します。これについては、また別の機会に深く解説しましょう。
—
最後に：自動化は「思考の質」を変える
WBSの書式設定を自動化する理由は、単に楽をするためではありません。「情報を整理する時間をゼロにし、プロジェクトの本質（課題の発見やリスク管理）を考える時間を最大化するため」です。
Project VBAは、あなたの思考を加速させる最強の武器です。まずはこのコードをコピーして、ご自身のプロジェクトで動かしてみてください。階層が美しく整った瞬間、きっと「プログラミングを学んでよかった」と実感できるはずです。
何か不明点があれば、いつでも聞いてください。あなたの自動化の旅を、全力でサポートします。
