Project VBAの深淵へ：階層構造を維持したままタスクを「移植」する極意
こんにちは。Project VBAの海へようこそ。
「マクロの記録」ボタンを押して、生成されたコードの長さに絶望したことはありませんか？実は、Project VBAにおいて「記録」はほとんど役に立ちません。なぜなら、Projectのタスクは単なる行の集合ではなく、「アウトライン（階層）」「依存関係（リンク）」「制約条件」という複雑な生命体だからです。
今日は、多くのエンジニアが躓く「タスクの階層構造を維持したままのコピー＆ペースト」という難所を、伝説的なアーキテクトの視点から攻略しましょう。ここを理解すれば、あなたはもう「記録」に頼る初心者ではありません。
—
1. なぜ「単純なコピペ」では崩壊するのか？
Projectでタスクをコピペしようとすると、往々にして以下の惨状が起きます。
- 階層がフラットになる： 親子関係が消滅し、すべてが独立したタスクになる。
- IDの不整合： コピー先のプロジェクト内でIDが採番し直され、依存関係（先行タスク）がデタラメになる。
- リソース情報の消失： 割り当てていたリソースがリンク切れを起こす。
これらは、Projectのオブジェクトモデルが「タスクは常にその親（OutlineParent）との関係性の中で定義されている」というルールを持っているために起こります。
—
2. 階層を維持するための「移植の鉄則」
コードを書く前に、頭に叩き込んでおくべき「黄金ルール」が2つあります。
1. Pasteは「貼り付け先」の行を特定する： どこに貼り付けるのか、インデックスではなく`Task`オブジェクトとして明確に指定してください。
2. インデントは後から制御する： `OutlineIndent`メソッドを使い、コピー後に親子関係を再構築するのが最もバグが少ない実装です。
—
3. 実践：階層構造を維持したタスク移植コード
では、実際に「ソースプロジェクトのタスク群」を「ターゲットプロジェクトの特定の親タスク配下」へ移植するコードを見てみましょう。
‘ プロジェクトの枠を超えたタスク移植のマスターピース
Sub CopyTasksWithHierarchy(srcProject As Project, destProject As Project, targetParentTask As Task)
Dim srcTask As Task
Dim destTask As Task
‘ 1. ソースプロジェクトのタスクを選択
‘ ※今回は例としてActiveProjectの全タスクをコピー対象とする
srcProject.SelectAll
srcProject.Selection.Copy
‘ 2. 貼り付け先をアクティブにする
destProject.Activate
‘ 3. 特定の親タスクの直下に貼り付ける（ここが重要）
‘ Pasteメソッドは選択中のタスクの「上」に挿入されるため、
‘ 親タスクを選択してから貼り付けるのがコツです
targetParentTask.Select
destProject.Paste
‘ 4. 階層構造の再構築（ここがエンジニアの腕の見せ所）
‘ 貼り付けたタスク群のインデントを1つ深くし、親タスクの配下に収める
Dim i As Long
For i = 1 To destProject.Tasks.Count
‘ ここで条件分岐を入れ、貼り付けたタスクのみを特定してインデントする
‘ (実務ではID範囲やフラグ等でフィルタリングしてください)
If Not destProject.Tasks(i) Is Nothing Then
destProject.Tasks(i).OutlineIndent
End If
Next i
MsgBox “タスクの移植と階層の再構築が完了しました。”
End Sub
—
4. 現場で陥りやすい「落とし穴」
コードを動かす際に、必ず遭遇する「壁」があります。
- 「タスクがNothingです」エラー：
Project VBAでは、削除されたタスクや非表示タスクにアクセスしようとすると`Nothing`が返ります。ループ処理の際は必ず `If Not t Is Nothing Then` を入れましょう。
- リンク関係の断絶：
コピーしたタスクが元プロジェクトのタスクを参照している場合、リンクは切れます。移植後に`Task.TaskDependencies`を再設定するロジックが必要になる場合があることを覚えておいてください。
- パフォーマンスの罠：
大量のタスクを操作する場合、`Application.ScreenUpdating = False` を必ず冒頭に入れてください。描画を止めるだけで、処理速度は劇的に向上します。
—
最後に：あなたへのアドバイス
Project VBAは、Excel VBAよりも少しだけ「気難しい」相手です。しかし、その分、使いこなせた時の恩恵は計り知れません。
階層構造をプログラムで制御できるようになった瞬間、あなたは「手作業で数時間かかるWBS作成」から解放されます。まずは上記のコードを、小さなプロジェクトで試してみてください。
「分からないことがあれば、またいつでも聞きに来てください。自動化の道は、一歩ずつの積み重ねですから。」
それでは、あなたのProject管理が、コードによってより知的で洗練されたものになることを願っています。Happy Coding!
