PowerPoint VBAを掌握せよ：カスタムプロパティを活用した「承認ステータス連動型」自動保存アーキテクチャ
現場の業務自動化において、最もコストがかかるのは「属人的なファイル管理」だ。誰がいつ承認したのか、どこに保存すべきか。この「人間が介在する判断」をマクロに委ねるだけで、ヒューマンエラーは劇的に減少する。
今日は、PowerPointの「カスタムドキュメントプロパティ」をメタデータとして活用し、承認ステータスに応じて保存先を動的に分岐させる、堅牢なワークフローの設計論を授けよう。
—
1. なぜ「カスタムプロパティ」なのか
多くのエンジニアが、ファイル名に「_final_v2_修正版.pptx」といった文字列を埋め込んで管理しようとする。これは最悪の設計だ。 ファイル名による管理は、リネーム時の整合性崩壊を招く。
我々が用いるのは `DocumentProperties` オブジェクトだ。これはファイルそのものにメタデータとして埋め込まれるため、以下のメリットがある。
- 完全なメタデータ分離: ファイル名を変えてもステータスは不変。
- 検索性: Windows Searchインデックスと連携し、エクスプローラーから即座に抽出可能。
- 堅牢性: 外部DBなしでファイル単体に「状態」を保持できる。
—
2. 堅牢な設計指針：エラーハンドリングとパスの正規化
VBAでファイルシステムを扱う際、最も多い事故は「パスの結合ミス」と「権限不足」だ。
1. パスの結合には `FSO (FileSystemObject)` を使え: `\` の漏れや重複を気にせず、`BuildPath` メソッドで解決する。
2. 遅延バインディングは避けよ: 参照設定（Microsoft Scripting Runtime）を行うことで、型安全性を確保し、インテリセンスを効かせる。これが保守性の第一歩だ。
—
3. 実装コード：Status-Driven Save System
以下は、プロパティを書き込み、ステータスに応じて保存先を振り分けるプロトタイプだ。
Option Explicit
‘ 参照設定: Microsoft Scripting Runtime (scrrun.dll) を有効にすること
Public Sub SaveByApprovalStatus()
Dim pptPres As Presentation
Dim customProps As DocumentProperties
Dim status As String
Dim fso As FileSystemObject
Dim savePath As String
Dim baseDir As String
Set pptPres = ActivePresentation
Set fso = New FileSystemObject
‘ 1. カスタムプロパティの取得・初期化
Set customProps = pptPres.CustomDocumentProperties
status = GetCustomProperty(customProps, “ApprovalStatus”, “起案中”)
‘ 2. ステータスに応じたパス決定ロジック
baseDir = “C:\Corporate\Presentations”
If status = “承認済” Then
savePath = fso.BuildPath(baseDir, “Published”)
Else
savePath = fso.BuildPath(baseDir, “Drafts”)
End If
‘ 3. ディレクトリの存在確認と保存
If Not fso.FolderExists(savePath) Then
fso.CreateFolder savePath
End If
On Error GoTo SaveError
pptPres.SaveAs fso.BuildPath(savePath, pptPres.Name)
MsgBox “保存成功: ” & status, vbInformation
Exit Sub
SaveError:
MsgBox “保存失敗: ” & Err.Description, vbCritical
End Sub
‘ プロパティ取得のラッパー関数
Private Function GetCustomProperty(props As DocumentProperties, name As String, defaultValue As String) As String
On Error Resume Next
GetCustomProperty = props(name).Value
If Err.Number <> 0 Then
‘ 存在しない場合は新規作成
props.Add name, False, msoPropertyTypeString, defaultValue
GetCustomProperty = defaultValue
End If
On Error GoTo 0
End Function
—
4. プロダクション環境への適応：3つの注意点
コードを動かすだけなら中級者。それを「運用」に乗せるのがプロだ。以下の壁を突破せよ。
A. 同時編集と排他制御
ファイル共有サーバー上で運用する場合、誰かが開いている時に保存しようとすればエラーが出る。 `Err.Number` を拾い、「ファイルが使用中です」といった親切なアラートを出す設計を必ず入れろ。
B. 監査ログの重要性
「誰がいつ承認したか」をファイルプロパティだけでなく、同一フォルダ内の `audit_log.csv` に追記する機能を追加すべきだ。`Scripting.TextStream` を使い、`ForAppending` モードで開けば容易に実装できる。
C. ユーザーへの強制力
「承認済」ステータスへの変更をユーザーに委ねるだけでなく、プレゼンテーションの最後に「承認ボタン（UserForm）」を配置し、そこからこのマクロをキックさせるUI/UXを設計すること。「マクロの存在を忘れさせる」ことこそが、真の自動化の姿だ。
—
結論：自動化は「設計」で決まる
今回紹介したカスタムプロパティによる管理手法は、大規模な文書管理システムを構築するまでの「つなぎ」として極めて強力だ。ファイルサーバーという既存のインフラを最大限に活かしつつ、メタデータの力で制御する。
VBAは枯れた技術ではない。適切な設計思想を注ぎ込めば、現代のクラウド時代においても最強の生産性ツールに化ける。さあ、コードを書いて、現場の混乱を秩序に変えてこい。
