Project VBAを極めよ：GroupApplyが生む動的ビュー自動化の極意
プロジェクト管理の現場において、MS Projectの真価は「データの蓄積」ではなく「ステークホルダーへの的確な視覚化」にある。役員会、部門長会議、プロジェクト定例――。会議の数だけ「切り口」が存在し、その都度手動でグループ化やフィルターをかけ替えているようでは、シニアエンジニアの名が廃る。
今回は、Project VBAにおける隠れたキラーメソッド `GroupApply` を軸に、リソース別・部署別のビューをミリ秒単位で切り替える自動化ツールを構築する。単なるメソッドの解説ではない。VBAのオブジェクトモデルの暗部、メモリの摂理、そして実務の荒波を生き抜くための極限の知見をここに公開する。
—
1. Projectオブジェクトモデルの闇：なぜ `GroupApply` なのか
MS ProjectのUI操作をそのままコードに落とし込もうとすると、多くのエンジニアは罠に嵌まる。
「ビューの切り替え」「グループ化の適用」「フィルターの適用」――これらは一見、個別の独立した操作に見えるが、実はProject内部の ActiveWindow コンテキストと密接に結びついている。
素朴な実装では、以下のようなコードを書きがちだ。
‘ 【アンチパターン】やってはいけない愚行
Sub BadExample_Grouping()
ViewApply “ガント チャート”
GroupApply “リソース” ‘ アクティブビューを無視した場当たり的な適用
End Sub
このコードは、現在のビューがタスクシート系かリソース系かによってエラーを吐くか、意図しないゴミデータを画面に描画する。
`GroupApply` メソッドは、単独で神のように君臨するわけではない。「どのウィンドウの」「どのビューに対して」「どのグループ定義を適用するか」という明確なスコープチェーンをプログラマーが手綱制御しなければならない。
GroupApplyの構文とシグネチャの真実
expression.GroupApply(Name, [ShowInMenu])
- `Name` (String): 適用するグループの名前。Organizer等で事前に定義されている必要がある。
- `ShowInMenu` (Boolean): メニューに表示するかどうか（基本は `False` で十分）。
ここで重要なのは、「存在しないグループ名を指定した際のトラップ」だ。実行時エラー（エラー番号1100など）が発生するため、事前の存在確認（グループコレクションの走査）がプロフェッショナルの実装では必須となる。
—
2. 実装：会議資料を1秒で生成する「動的ビュー・スイーパ」
会議の直前、「リソース別の稼働状況を見せろ」「いや、やっぱりWBSの部署別コストだ」という無茶振りに対し、瞬時に応戦するための実用コードを提示する。
このコードは、単にグループ化するだけでなく、画面の再描画を抑止してパフォーマンスを極限まで高め、エラーハンドリングによってレガシー環境の不安定さを完全に包み込む。
Option Explicit
‘ ==============================================================================
‘ 模範的アーキテクチャ：動的グループ化・ビュー自動切替エンジン
‘ Author: 伝説のチーフアーキテクト
‘ Target: MS Project 2013 / 2016 / 2019 / 2021 / O365
‘ ==============================================================================
Public Enum TargetViewGroup
vgResourceByCost = 1
vgDepartmentWBS = 2
vgMilestoneStatus = 3
End Enum
Sub ApplyExecutiveGroupView(ByVal groupType As TargetViewGroup)
Dim targetViewName As String
Dim targetGroupName As String
‘ 1. パフォーマンスの神：画面更新の凍結
‘ これを行わないと、グループ化のたびにGanttの再描画走り、数秒の無駄なロスを生む。
Application.ScreenUpdating False
On Error GoTo ErrorHandler
‘ 2. ビジネスロジックに応じたビューとグループのルーティング
Select Case groupType
Case vgResourceByCost
targetViewName = “ガント チャート”
targetGroupName = “リソース別コスト”
Case vgDepartmentWBS
targetViewName = “タスク シート”
targetGroupName = “部署別タスク”
Case vgMilestoneStatus
targetViewName = “タスク配分”
targetGroupName = “マイルストーン状態”
Case Else
Err.Raise vbObjectError + 512, “GroupEngine”, “不正なグループ種別が指定されました。”
End Select
‘ 3. アクティブウィンドウの検証とビューの適用
If ActiveProject.Views.Count = 0 Then
Err.Raise vbObjectError + 513, “GroupEngine”, “プロジェクトに有効なビューが存在しません。”
End If
‘ ビューの切り替え（存在チェックを伴う安全な適用）
Dim isViewFound As Boolean: isViewFound = False
Dim v As View
For Each v In ActiveProject.Views
If v.Name = targetViewName Then
isViewFound = True
Exit For
End If
Next v
If Not isViewFound Then
MsgBox “警告: 指定されたビュー ‘” & targetViewName & “‘ が見つかりません。デフォルトビューを維持します。”, vbExclamation, “Architect Engine”
Else
ViewApply Name:=targetViewName
End If
‘ 4. グループの存在確認と GroupApply の実行
If Not VerifyGroupExists(targetGroupName) Then
Err.Raise vbObjectError + 514, “GroupEngine”, “指定されたグループ定義 ‘” & targetGroupName & “‘ がグローバルまたはプロジェクト内に存在しません。”
End If
‘ グループ化の適用（引数の正確性）
GroupApply Name:=targetGroupName, ShowInMenu:=False
‘ 5. 仕上げ：のアウトライン展開（必要に応じて全展開）
OutlineShowAllTasks
‘ ログ出力（イミディエイトウィンドウ）
Debug.Print “[” & Now & “] Successfully applied group: ” & targetGroupName & ” on view: ” & targetViewName
CleanUp:
‘ 画面更新の復元（絶対に忘れてはならない）
Application.ScreenUpdating True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error # ” & Err.Number & “: ” & Err.Description, vbCritical, “Project VBA Critical Error”
Resume CleanUp
End Sub
‘ ——————————————————————————
‘ ヘルパー関数: 指定されたグループ名がプロジェクト/グローバルに存在するか検証
‘ ——————————————————————————
Private Function VerifyGroupExists(ByVal groupName As String) As Boolean
Dim g As Group
Dim found As Boolean
found = False
‘ タスク用グループコレクションの走査
For Each g In ActiveProject.TaskGroups
If g.Name = groupName Then
found = True
Exit For
End If
Next g
‘ タスクで見つからない場合はリソース用も走査
If Not found Then
For Each g In ActiveProject.ResourceGroups
If g.Name = groupName Then
found = True
Exit For
End If
Next g
End If
VerifyGroupExists = found
End Function
—
3. シニアエンジニアが知るべき「メモリ管理」と「オブジェクト解放」の作法
VBAにおけるオブジェクトのライフサイクルは曖昧にされがちだが、MS ProjectのCOMコンポーネントを操作する上で、メモリリークはアプリケーション全体のフリーズや、最悪の場合`.mpp`ファイルの破損（Corruption）に直結する。
コレクションのループにおける参照の罠
上記の `VerifyGroupExists` 関数を見てほしい。`For Each g In ActiveProject.TaskGroups` というイテレーションを行っている。
VBAの裏側では、COMオブジェクトの列挙子（IEnumVARIANT）が生成されている。もしこれを手動でインスタンス化し、さらに `Set g = Nothing` をループ内で怠ると、参照カウントがインクリメントされたままメモリ上に残骸が残り続ける。
- 鉄則1: ループ変数の明示的解放
`For Each` のループ変数は自動的に管理されるが、手動で `Set obj = Nothing` を行う習慣をつけよ。
- 鉄則2: `ScreenUpdating False` の強制解除
エラーハンドラー内で `ScreenUpdating True` を呼ばずにプロシージャが強制終了した場合、MS ProjectのUIスレッドがロックされ、ユーザーはタスクマネージャーからkillするしかなくなる。必ず `On Error GoTo CleanUp` のパターンを死守すること。
—
4. システム間連携：外部DB/Excelからのグループ定義動的インポート
真の自動化システムは、MS Project単体で完結しない。基幹システム（SAPやP6など）から出力されたCSV、あるいはExcelのマスター定義に基づき、「グループが存在しないなら、VBA側で動的にグループ条件を作成し、GroupApplyを叩く」という高度な連携が求められる。
Project VBAには、グループ条件（Criteria）をプログラムから構築するための強力なオブジェクトモデルが用意されている。以下に、コードベースで動的にカスタムグループを生成し、適用するスニペットの骨子を示す。
.net
‘ 【参考】VB.NET / COM Interop (VSTO) による高度なグループ自動生成アプローチ
‘ VBAの限界を超える場合、外部アドインからCOM経由でこう叩く
Public Sub CreateDynamicGroupAndApply(ByVal projectApp As Microsoft.Office.Interop.MSProject.Application, ByVal deptName As String)
Dim proj As Microsoft.Office.Interop.MSProject.Project = projectApp.ActiveProject
‘ 既存のカスタムグループがあれば削除
Dim grp As Microsoft.Office.Interop.MSProject.Group
Try
grp = proj.TaskGroups(“Dynamic_Dept_Group”)
grp.Delete()
Catch
‘ 存在しない場合はスルー
End Try
‘ 新規グループの作成
grp = proj.TaskGroups.Add(“Dynamic_Dept_Group”)
‘ 条件の追加 (例: テキスト1フィールドが deptName と等しいもの)
‘ ※VBA/COMのバージョンにより構文差異あり。アーキテクチャ設計の指針として示す。
grp.Criteria.Add(Field:=Microsoft.Office.Interop.MSProject.PjField.pjTaskText1, _
Test:=Microsoft.Office.Interop.MSProject.PjComparison.pjEqual, _
Value:=deptName)
‘ 適用
projectApp.GroupApply(“Dynamic_Dept_Group”)
End Sub
VBA環境であっても、Organizerインポート機能（`OrganizerMoveItem`）を併用すれば、サーバー上のマスタテンプレートから最新のグループ定義をプロジェクトに自動同期させ、その直後に `GroupApply` を実行することが可能だ。これにより、全社的なグループ定義のガバナンスを完全に一元化できる。
—
結言：自動化の先にあるもの
「ボタン一つで会議資料のビューが切り替わる」――それはユーザーにとっての利便性の入口に過ぎない。
裏側で動いているのは、非同期を考慮した画面描画の制御、厳密なエラーハンドリング、そしてオブジェクトのライフサイクルをコントロールしたメモリの最適化である。
手作業による「クリックと選択」の呪縛からプロジェクトマネージャーを解放せよ。
あなたの書いた数行のVBAコードこそが、組織の意思決定のスピードを極限まで加速させるエンジンとなるのだ。
