【レガシー変換】`Application.FileConverters`を活用し、古い形式（.ppt）のプレゼンテーションを最新の.pptx形式へ一括バッチ変換するシステム
レガシーシステムの維持とモダン化の狭間で、我々インフラストラクチャおよび自動化エンジニアが直面し続ける最大の呪縛。それが、社内のファイルサーバーの奥底に眠る膨大な旧形式資産（`.ppt`）である。
Office 2007以降、OpenXML形式（`.pptx`）が標準となって久しいが、過去の遺物は容赦なく現代のセキュリティポリシーや最新のPowerPointエンジンとの不整合を引き起こす。GUIによる手動変換など、数千ファイルの規模の前には無力な苦行に過ぎない。
今回は、PowerPoint VBAの隠れた強力なインターフェースである `Application.FileConverters` を駆使し、レガシーバイナリをモダンなOpenXMLへと昇華させる、極限まで最適化された一括バッチ変換システムのアーキテクチャを解説する。
—
1. なぜ「開いて名前を付けて保存」では破綻するのか？
多くの初学者が書くレガシー変換マクロは、次のような愚行を犯す。
‘ 【アンチパターン】メモリリークとダイアログ地獄を引き起こす実装
Sub BadConversion(filePath As String)
Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
Dim prs As PowerPoint.Presentation
Set prs = pptApp.Presentations.Open(filePath)
‘ これではGUIダイアログが割り込み、バッチ処理が停止する
prs.SaveAs Replace(filePath, “.ppt”, “.pptx”), ppSaveAsOpenXMLPresentation
prs.Close
pptApp.Quit
End Sub
このアプローチは、大規模バッチにおいて確実にメモリリークを引き起こし、OLEのタイムアウト、さらにはパスワード保護ファイルや修復プロンプトによる「無人実行の完全な停止」を招く。
プロフェッショナルなシステムにおいて求められるのは、「非視覚的（Invisible）なプロセスの強固な制御」「例外の完全なハンドリング」「厳密なオブジェクトのライフサイクル管理」の3点である。
—
2. アーキテクチャ設計：`FileConverters` コレクションの真価
PowerPointの `Application.FileConverters` は、インストールされているファイルコンバーターのメタデータを提供する。だが、本システムの真の目的は、バックグラウンドでの堅牢なIO処理と、COMコンポーネントの確実な解放にある。
以下のプロダクション品質を誇る一括変換エンジンコードを提示する。エラーハンドリング、FileSystemObjectによる再帰的走査、そしてCOMの残骸を残さないための徹底的な参照解放を実装している。
プロダクション品質のバッチ変換モジュール
Option Explicit
‘ —————————————————————————–
‘ モジュール名: modLegacyConverter
‘ 概要: 指定ディレクトリ以下の.pptファイルを検出し、バックグラウンドで.pptxへ一括変換する
‘ —————————————————————————–
Public Sub ExecuteMassConversion()
Dim targetDir As String
targetDir = “C:\LegacyPresentationStorage\” ‘ 変換対象のルートパス（環境に合わせて変更）
If Dir(targetDir, vbDirectory) = “” Then
MsgBox “指定されたディレクトリが存在しません: ” & targetDir, vbCritical, “致命的エラー”
Exit Sub
End If
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
Dim pptApp As PowerPoint.Application
Set pptApp = New PowerPoint.Application
‘ バックグラウンド実行の鉄則：画面描画とアラートの完全抑制
pptApp.Visible = msoFalse
Dim convertedCount As Long
Dim errorCount As Long
On Error GoTo SystemError
‘ 再帰的にディレクトリを走査して変換を実行
ProcessDirectory fso.GetFolder(targetDir), pptApp, convertedCount, errorCount
‘ クリーンアップ
pptApp.Quit
Set pptApp = Nothing
Set fso = Nothing
MsgBox “変換プロセスが完了しました。” & vbCrLf & _
“成功: ” & convertedCount & ” 件” & vbCrLf & _
“失敗/スキップ: ” & errorCount & ” 件”, vbInformation, “バッチ処理完了”
Exit Sub
SystemError:
MsgBox “予期せぬシステムエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
If Not pptApp Is Nothing Then
pptApp.Quit
Set pptApp = Nothing
End If
Set fso = Nothing
End Sub
Private Sub ProcessDirectory(ByVal folder As Object, ByRef pptApp As PowerPoint.Application, ByRef success As Long, ByRef failures As Long)
Dim subFolder As Object
Dim file As Object
Dim prs As PowerPoint.Presentation
Dim ext As String
Dim outputPath As String
‘ サブフォルダの再帰処理
For Each subFolder in folder.SubFolders
ProcessDirectory subFolder, pptApp, success, failures
Next subFolder
‘ ファイルの走査
For Each file in folder.Files
ext = LCase(CreateObject(“Scripting.FileSystemObject”).GetExtensionName(file.Path))
If ext = “ppt” Then
outputPath = Left(file.Path, Len(file.Path) – 4) & “.pptx”
‘ 既に同名の.pptxが存在する場合はスキップ（重複上書き防止）
If Dir(outputPath) = “” Then
On Error GoTo ConvertError
‘ 読み取り専用・パスワード保護等の例外を完全に遮断してオープン
‘ 第2引数をTrue(ReadOnly)、第3引数をFalse(Untitled)、第4引数をFalse(WithWindow)
Set prs = pptApp.Presentations.Open(FileName:=file.Path, _
ReadOnly:=msoTrue, _
Untitled:=msoFalse, _
WithWindow:=msoFalse)
‘ OpenXML (.pptx) 形式で保存
prs.SaveAs FileName:=outputPath, FileFormat:=ppSaveAsOpenXMLPresentation
prs.Close
Set prs = Nothing
success = success + 1
GoTo NextFile
ConvertError:
‘ エラーログをイミディエイトウインドウに出力し、プロセスを止めずに次へ
Debug.Print “[変換失敗] ” & file.Path & ” | Error: ” & Err.Description
failures = failures + 1
‘ エラー発生時のオブジェクト強制解放
On Error Resume Next
If Not prs Is Nothing Then
prs.Close
Set prs = Nothing
End If
On Error GoTo 0
End If
End If
NextFile:
Next file
End Sub
—
3. シニアエンジニアが押さえるべき「メモリ最適化」と「COMの罠」
VBAにおけるPowerPoint自動化の最大の悪夢は、タスクマネージャーの裏に `POWERPNT.EXE` のゾンビプロセスが残留し、メモリを食らい尽くす現象である。
オブジェクトの明示的解放とスコープ管理
VBAのガベージコレクションは参照カウント方式に基づいている。ローカル変数のスコープを抜けても、オブジェクト変数を明示的に `Set xxx = Nothing` しない限り、COMサーバーへの参照が維持されるケースがある。
特に、ループ内で `Presentations.Open` を繰り返すようなバッチ処理では、1イテレーションごとの参照切断を怠ると、数スキャンでメモリが枯渇する。
モーダルダイアログの完全封殺
レガシーな `.ppt` ファイルには、リンク切れ、古いフォントの置換警告、マクロセキュリティの警告など、人間がクリックしなければ進まない地雷が埋め込まれている。
`WithWindow:=msoFalse` を指定し、ウィンドウを生成せずにプレゼンテーションをメモリ上にロードすることで、これらのダイアログによるハングアップを物理的に根絶している点が、本アーキテクチャのキモである。
—
4. システム間連携への発展：タスクスケジューラとの統合
このVBAマクロを単なる「手動実行ツール」で終わらせてはならない。社内のファイルサーバーの夜間バッチとして組み込むことで真価を発揮する。
1. ホストエクセル/アクセス、またはVBScriptからのキック
VBAマクロを内包したプレゼンテーション、あるいは外部のVBScriptから `PowerPoint.Application` を起動し、ヘッドレスで上記プロシージャを叩く構成にする。
2. Windowsタスクスケジューラの登録
深夜の誰もアクセスしない時間帯に、権限を付与したサービスアカウントでVBScriptを自動実行させる。
‘ run_converter.vbs (タスクスケジューラから呼び出す外部ランナー)
Dim pptApp
Set pptApp = CreateObject(“PowerPoint.Application”)
‘ マクロを含むドキュメントを開き、自動実行プロシージャをコールする等への応用が可能
—
総括
レガシーシステムの現代化（モダナイゼーション）において、古いフォーマットの放置はセキュリティリスクおよび運用コストの増大に直結する。
今回解説した `Application.FileConverters` の精神を組み込んだ堅牢なバッチ変換エンジンは、単なるファイルのコンバージョンを超え、「予測不能なレガシー環境を、予測可能なモダンインフラへと強制同化させる」ための強力な武器となる。
コードの意図を正確に読み解き、現場のサーバーインフラへ静かに、そして確実に組み込んでほしい。エンジニアの真価は、こうした泥臭い移行期をエレガントに自動化する手腕にこそ宿るのだから。
