Project VBAを掌握する極限の知見
第1回：プロジェクト創成期の呪縛を断つ ——「プロジェクト情報」自動初期化アーキテクチャ
—
序：手動操作という名の「技術的負債」の温床
MS Projectを用いた大規模なプロジェクト管理において、最も生産性を阻害し、ヒューマンエラーの温床となる瞬間をご存知だろうか。それは「新規プロジェクトファイルの立ち上げ」という、一見して最もプリミティブなフェーズである。
「プロジェクト情報」ダイアログを開き、開始日を指定し、現在時刻を補正し、全社標準のカレンダーを選択し、スケジュールモード（開始日基準か完了日基準か）を再確認する。PMOのメンバーが毎案件これを手動で行っているとすれば、それは組織としてのリソースの無駄遣いであり、ガバナンスの欠如に他ならない。
真のエンジニアリングとは、「人間が手で行うべきではない作業を、容赦なくコードに置き換えること」である。
今回は、Project VBAのオブジェクトモデルの深層に切り込み、新規プロジェクト作成の瞬間にフックして「プロジェクト情報」をミリ秒単位で完全自動構築する、実戦投入可能な定型化マクロのアーキテクチャを解説する。
—
1. Project VBAのライフサイクルとイベントの罠
MS ProjectのVBA環境は、ExcelやWordといった他のOffice製品群とは一線を画す。特に、アプリケーションレベルのイベント（`App`オブジェクト）のライフサイクル管理は、甘く見るとメモリリークやイベントの取りこぼしを引き起こす魔窟である。
新規プロジェクト作成時（`NewProject`イベント）に確実に割り込み、プロパティを流し込むためには、単なる標準モジュールでのプロシージャ実行ではなく、クラスモジュールによるイベントフックが必須となる。
アーキテクチャの全体像
1. `Class1` (clsAppEvents): アプリケーションイベントを監視し、新規作成を検知する。
2. `modInitializer` (標準モジュール): イベントハンドラのインスタンスを保持し、実処理（API叩き込み）を執行する。
—
2. 実装コード：極限まで最適化された初期化スクリプト
以下のコードは、単にプロパティを設定するだけではない。MS Projectの内部エンジン（ActiveProject）のコンテキストを安全に取得し、例外処理とオブジェクトのライフサイクルを考慮した、プロダクション品質のコードである。
① クラスモジュール：`clsAppEvents`
‘ Option Explicitの強制はプロフェッショナルの大前提
Option Explicit
‘ ApplicationオブジェクトをWithEventsで宣言し、MS Project全体のイベントを捕捉する
Public WithEvents App As MSProject.Application
‘ 新規プロジェクト作成時に発火するイベント
Private Sub App_NewProject(ByVal pj As Project)
On Error GoTo ErrorHandler
‘ ログ出力やデバッグトレース（必要に応じて拡張）
Debug.Print “System Event: NewProject detected -> ” & pj.Name
‘ プロジェクト情報の自動流し込みを実行
Call InitializeProjectProperties(pj)
Exit Sub
ErrorHandler:
MsgBox “プロジェクト初期化中に致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Architecture Guard”
End Sub
② 標準モジュール：`modInitializer`
Option Explicit
‘ イベント監視クラスのグローバルインスタンス
Private GlbAppEvents As clsAppEvents
‘================================================================
‘ 概要: アドイン起動時にイベント監視をアタッチするエントリポイント
‘================================================================
Public Sub RegisterApplicationEvents()
If GlbAppEvents Is Nothing Then
Set GlbAppEvents = New clsAppEvents
Set GlbAppEvents.App = VBE.ActiveVBProject.MSProject.Application ‘ 厳密なアプリケーションコンテキストのバインド
‘ ※通常の実装では以下のようにシンプルに記述可能
‘ Set GlbAppEvents.App = Application
End If
MsgBox “Project Auto-Initializerが正常に稼働を開始しました。”, vbInformation, “Architect Console”
End Sub
‘================================================================
‘ 概要: プロジェクト情報の物理的書き込みとメタデータ構築
‘================================================================
Public Sub InitializeProjectProperties(ByRef targetProj As Project)
Dim targetDate As Date
‘ タイムスタンプの正規化（当日の午前0時をプロジェクト開始日とする）
targetDate = Date
‘ Withブロックによるオブジェクト参照の最適化（COMコンテキストの往復を最小化）
With targetProj
‘ 1. スケジュールモードの設定 (0 = 開始日基準, 1 = 完了日基準)
.ScheduleFrom = pjStart
‘ 2. プロジェクト開始日の設定
.ProjectStart = targetDate
‘ 3. 標準ベースカレンダーの強制適用（社内標準カレンダー名を指定）
On Error Resume Next
.CalendarUniqueId = .BaseCalendars(“全社標準カレンダー”).UniqueID
If Err.Number <> 0 Then
‘ フォールバック: 標準カレンダーが見つからない場合はデフォルトを使用
Debug.Print “Warning: 指定されたベースカレンダーが見つかりません。デフォルトを適用します。”
Err.Clear
End If
On Error GoTo 0
‘ 4. 企業標準プロパティ（サマリー情報）のメタデータ流し込み
.Company = “Enterprise PMO Office”
.Author = Application.UserName
.Manager = “System Administrator”
‘ 5. 稼働時間の設定（例: 1日あたりの稼働時間を8時間に強制設定）
.MinutesPerDay = 480
.MinutesPerWeek = 2400
End With
‘ 変更を強制保存フラグに反映（必要に応じ）
‘ targetProj.Saved = False
End Sub
—
3. シニアエンジニアが知るべき「メモリとCOMの暗部」
上記のコードを実装するにあたり、MS Project特有のCOM（Component Object Model）の挙動について深く理解しておく必要がある。
オブジェクトの暗黙的参照とメモリリーク
VBAにおける `Application` や `Project` オブジェクトは、背後で重厚なCOMコンポーネントとして動作している。特に `WithEvents` を用いたイベントハンドリングでは、インスタンスのスコープ管理を誤ると、MS Projectを終了してもプロセスがメモリ上に残留する「ゾンビプロセス問題」を引き起こす。
本アーキテクチャでは、グローバル変数 `GlbAppEvents` でライフサイクルを明示的に制御しているが、アドインのアンロード時やアドイン終了時には、必ず以下のような解放プロシージャを用意すべきである。
Public Sub UnregisterApplicationEvents()
If Not GlbAppEvents Is Nothing Then
Set GlbAppEvents.App = Nothing
Set GlbAppEvents = Nothing
End If
Debug.Print “System Event: Auto-Initializer detached.”
End Sub
レガシー環境・外部システム連携への拡張
エンタープライズ環境では、この「プロジェクト作成イベント」の瞬間に、社内の基幹システム（ERPやPPMツール）からREST API経由でWBSのテンプレートIDや予算コードを取得し、プロジェクトのカスタムフィールド（`Text1`〜`Text30`など）に自動マッピングする拡張が求められる。
VBA単体でのHTTP通信（WinHttpRequest）は非同期処理の扱いに難があるため、以下のように設計の段階でプロパティ設定ロジックと外部I/Oを完全に分離しておくことが、将来的な保守性を担保する唯一の道である。
‘ 拡張構想：外部PPM連携スタブ
Private Sub SyncWithEnterprisePPM(ByRef pj As Project)
‘ TODO: WinHttp.WinHttpRequest.5.1 を用いたJSONペイロードの取得とカスタムフィールドへの流し込み
‘ pj.ProjectSummaryTask.Text1 = “ERP-ID-99821コスメティック”
End Sub
—
結：自動化とは「思想」である
「プロジェクト情報を手動で入力する」――たった数分、年間で見れば数時間の作業かもしれない。しかし、その数時間を排除するためにアーキテクチャを組み、イベントフックを張り巡らせるエンジニアリングの姿勢こそが、組織全体の品質を底上げする。
散らかった初期設定のファイルを撲滅し、すべてのプロジェクトが均一なガバナンスのもとに産声を上げる。そのための最初のピースとして、本稿のコードベースをあなたの開発環境に刻み込んでほしい。
